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' ■ ABSTRACT 

An automated system is implemented to supersede existing 
manual procedures in fulfilling user requests made to a remote sensing 
data bank, concerning specifically LANDSAT imagery. The system controls 
the several production steps from request entry to the shipment of each 
final product. Special solutions and techniques are employed due to 
the severe limitations , in both hardware and. software of the host 
minicomputer system. 
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CAPtTULO 1 


INTRODUQflO 


0 tema desta dissertagao foi escolhido devido a oportuni. 
dade que oferecia de atender a uma necesssidada erescente da area em que 
o autor esta alocado (o Departamento de Geragao de Imagens de Satelite), 
ao mesmo tempo em que constituTa uma aplicagao pratica de varios dos to 
picos tratados no programa de Cursos da Area de Computagao Aplicada do 
INPE, 

• 

Nesta introdugao tentar-se-a dar uma visao geral do siste 
ma que motivou a existencia do Banco de Imagens de que trata este traba 
lho, e, em particular, do funcionamento do Departamento de Geragao de 
Imagens de Satelite (DGI), onde esse banco esta implantado. 

1.1 - 0 SISTEMA LANDSAT 

Em 1972 *'oi langado pel a NASA o primeiro satelite artif[ 
cial de uso civil voltado para o Sensoriamento Remoto dos Recursos Natu 
rais. Inicialmente denominado ERTS (Earth Resources Technology Satellite), 
teve depois seu nome alterado para LANDSAT-1, e seus dois primeiros suce 
daneos, langados em 1975 e 1978, foram batizados LANDSAT-2 e LANDSAT-3, 
respectivamente. 

Os LANDSATs sao satelites heliossTncronos, de orbita quai 
se-polar, que recobrem a Terra toda, a excegao da vizinhanga dos polos, 
a cada 18 dias. 

Os sensores a bordo dos LANDSATs obtem imagens da Terra 
durante cada passagem, e transmitem-nas em tempo real se houver uma esta^ 
gao receptora dentro de seu alcance (equivalente a urn raio de aproximada, 
mente 3.000 km, dadas a sua altitude de 920 km c a curvatura da Terra, a 
qual impede a recepgao do satelite abaixo do horizonte na frequencia utj^ 
lizada). 
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Essas imagens (ver Figura 1.1) sao tomadas de uma faixa de 
aproximadamente 185 km de largura, sob a trajetoria do satelite, com r£ 
solugao de 80 metros no caso do sensor MSS (Multi spectral Scanner) e_ de 
30 metros no ca$o do sensor RBV (Return Beam Vidicon). 0 sensor MSS fo£ 
nece imagens digitais com nTveis de cinza* representados por numeros de 6 
bits (0 a 63, portanto) de quatro (ou cinco, apenas no caso do LANDSAT-3) 
bandas espectrais. 0 sensor RBV fornece imagens pancromaticas analogicas 
em urn sistema similar ao utilizado em televisao. 



Multiplas sao as possibilidades de utilizagao das imagens 
LANDSAT em inumeros campos, tais como Agricultura , Geologia, Cartografia , 
Recursos Florestais, Hidrografia, Urbanismo e muitcs outros. 0 baixiss^ 
mo c us to por km 2 , a qualidade geometrica e o recobrimento repetitivo sijs 
tematico, entre outros fatores, tornaram as imagens LANDSAT uma ferra 
menta imprescindivel praticamente em todas as aplicagoes onde se exigem 
dados de sensoriamento remoto em grande escala. 
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1 * 2 - 0 SIS“EMA DE AQUISICAO, PROCESSAMENTO E DISTRIBUTED DE DADOS 
LANDSAT DO CNPq/INPE 

0 Brasil foi o segundo paTs no mundo, alem dos Estados Unj. 
dos, a se capacitar para receber e processar os dados transmitidos pel os 
satelltes da serie LANDSAT, Em maio de 1973 (10 meses apos o langamento 
do ERTS-1) sua estagao receptora foi instalada em Cuiaba, MT, p&la sua 
local izagao geografica central izada que pernrite recepgao dos LANDSATs 
sobre todo o territorio brasileiro, incluindo tambem a maior parte dos 
paTses da America do Sul. A Estagao de Processamento foi instalada em Ca 
choeira Paulista, SP, para maior facilidade de acesso aos grandes cen 
tros com’relagao a materiais de consumo e manutengao (ver Figura 1,2). 

A estagao de Cuiaba recebe diariamente as passagens dos sa 
telites dentro de seu raio de alcance e grava todos os dados emfitas ma£ 
neticas especiais. Essas fitas sao depois transportadas, via aerea, para 
Cachoeira Paulista, onde existem equipamentos capazes de transformar es^ 
ses dados em imagens fotograficas ou transcreve-las em fitas magneticas 
de computador, Essas operagoes tern lugar no que se convencionou chamar 
Laboratorio i-letronico. 

Junto ao Laboratorio Eletronico esta instalado o Laborato 
rio Fotografico, onde os filmes originais sao revelados e onde se produ 
zem as copias e ampliagoes, de di versos tamanhos e apresentagoes, que 
sao o produto final entregue ao usuario que as solicitou. 

0 recebimento dos pedidos de usuarios, bem como o fornecJ_ 
nlento de todas as informagoes necessarias a escolha das imagens a solicj_ 
tar, e feito pelo Setor de Atendimento do DGI, localizado junto aos labo 
ra tori os, e por cen tros de atendimento instalados em varios lugares do 
Brasil. .Atualmente estao em funcionamento os centros de Sao Jose dos Cam 
pos. Natal, Rio de Janeiro, Brasilia e Manaus, estando em estudos o e£ 
tabelecimento de centros em outras localidades. 









A utilizagao dos produtos LAMDSAT distribuTdos pelo CNPq/ 
INPE, embora ainda nSo tenha atingido o nTvel ideal para um pais da ex 
tensSo territorial e riquezas naturais do Brasil, levou-o em 1978 ao se 

gundo lugar do mundo em volume de dados distribuTdos, inferior apenas aos 

* ■ 

Estados Unidos. 

1 . 3 - A GENEALOGIA DOS PRODUTOS LANDSAT NO INPE 

Para uma melhor compreensao das descrigoes que serao fei_ 
tas nos proximos capTtulos deste trabalho, e importante conhecer os pa£ 
sos basicos existentes entre os dados gravados nas fitas de Cuiaba e o 
produto final entregue ao usuario. 

Excetuando as fitas de computador corn dados MSS, conheci. 
das geralmente como CCTs (Computer Compatible Tapes), que sao geradas 
diretameote a partir das fitas de Cuiaba, todos os produtos fornecidospe 
lo INPE sao obtidos, em um ou mais passos, a partir do filme de70mm de 
nominado- "Master" oq "1? geragao" (ver Figura 1.3). A maior/ia dos prodjj 
tos precisa de um internegativo que e chamado "copia de trabalho" ou "2? 
geragao". Os produtos coloridos necessitam de um negativo colorido, que 
e produzido a partir do "Master". 

Um "filho" da rita de Cuiaba que nao constitui realmenteum 
"produto", visto que nao e normalmente entregue ao usuario, consiste 
nas imagens "Quick-Look" (ver Figura 1.3). Estas sao imagens de baixo 
custo e baixa resol ugao, cuja final idade principal e a verificagao da 
qualidade dos dados gravados na fita de Cuiaba e a avaliagao da aobertu 
ra de nuvens , que e uma informagao fundamental paraaescolha de imagens 
a solicitar. 


Em princTpio todos os dados recebidos de Cuiaba sao co]i 
vertidos em imagens Quick-Look o mais cedo possTvel , para que as info£ 
magoes sobre qualidade e cobertura de nuvens sejam inseridas o quanto 
antes no Cadastro de Imagens Adquiridas, a partir de onde os usuarios po 
derao selecionar as imagens de seu interesse. 
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Fig. 1.3 - A genealogia dos produtos Landsat no INPE 
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CAPlTULO 2 


0 CONTROLE ANTERIOR (MANUAL) DOS PEDIDOS NO INPE 

A ideia que norteou, desde o inTcio, a implantagao do Baji 
co de Imagens Terrestres (sediado a princTpio no INPE - Sao Jose dos Cam 
pos) foi a de que o usuario efetuaria seus pedidos com base em urn Cata 
logo de Imagens Processadas , emit! do a parti r de urn cadastro mantido no 
computador (entao) B-3500 de Sao Jose dos Campos. Sobre esse cadastro 
seriam possiveis tambem buscas automatizadas de imagens e varias outras 
opgoes (Buss e Queiroz, 1974). 

V 

Varias dificuldades, entretanto, impediram essa ideia de 
ser realizada a contento. Em primeiro lugar, o atraso inersnte as ativj^ 
dades de codificagao, perfuragao, cadastramento e emissao de listagens 
para verifi cacao, codificagao, perfuragao e aplicagao de corregoes etc. 
dos dados relativos as imagens processadas em Cachoeira Paulista. A se 
guir,'a constatagao de que era inviavel, por motivos tecnicos e econo 
micos, processar rapidamente para filme todos os dados gravados em Ciiia 
ba, o que era condigao essencial para o bom funcionamento do Banco de 
Imagens Terrestres conforme fora concebido, 

A evolugao do sistema, no interesse do melhor atendimento 
ao usuario, determinou que se processassem dados sob pedido, introduziji 
do assim no sistema urn elo que nao tinha nascido com ele; o processamen 
to eletronico das imagens. 

A aquisigao, em 1978, de urn mini computador auxiliar para 
o Laboratorio Eletronico foi urn grande passo para a agilizagao do sijs 
tema. 0 Cadastro de Imagens Processadas foi transferido para Cachoeira 
Paulista e passou a receber atualizagoes automaticamente atraves de ar 

4 

quivos gerados durante o processamento das imagens pel os minicomputado 
res de produgao. Com isso se eliminou uma serie de operagoes manuais do 
sistema e passou a ser possTvel incluir nos catalogos imagens process^ 
das ha muito menos tempo. A implementagao de uma capacidade de busca au 
tomatizada reduziu ainda mais o tempo de chegada ao usuario das in 
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formagoes sobre imagens processadas. No entanto, pedidos ainda continue 
vam - e continuam - a cair sobre imagens ainda "nao processadas". 

No a no de 1982 foi tomada a resol ugao de suspender a pu 
blicagao do Catalogo de Imagens Processadas e implementar urn Catalogo de 
Imagens Adquiridas , para ser publicado e enviado aos usuarios em lugar 
' do anterior. Imagens LANDSAT passaram entao a ser processadas apenas sob 
pedido , o que permitiu uma redugao dos custos operacionais relacionados 
ao processamento de imagens nunca solicitadas. 

Feito este breve historico, descrever-se-a, tambem breve 
mente, o sistema de gerenciamento manual que foi se instalando ao longo 
do tempo de operagao do sistema LANDSAT. Alguns aspectos' foram result^ 
do de decisoes de gerancia; outros configuraram uma "evolugao natural". 
F preciso lembrar que, de 3 usuarios em 1973, a comunidade aumentou p_a 
ra mais de 1.000 enquanto se operava urn sistema que fugira a concepgao 
inicial . 

» 

2,1 - OS SETORES ENVOLVIDOS 

£ convenience, antes de apresentar os procedimentos e for 
mularios de control e, uma rapida apresentagao dos setores do Departameji 
to de Geragao de Imagens de Satelite que estao diretamente envoi vi dos 
com o sistema de pedidos. Sao eles: 

o Atendimento: aqui se faz a interface entre o usuario e o sist£ 
ma. Recebem-se os pedidos, providenciam-se listagens de busca au^ 
tomatizada, informa-se o usuario a respeito do andamento de seus 
pedidos, atendem-se consul tas telefonicas sobre disponibil idade 
de imagens proces*sadas e dispara-se, enfim, o processo de prodjj 
gao. 

o PCPM (Planejamento e Controle de Produgao e Material's): aqui 

sSo central izados os formularios relativos a produgao que deve 
ser executada. E feita a programagao do perTodo para cada linha 
de produgao, sao alocados os materials a ser util izados ee fej^ 
to o' controle da produgao conseguida e do material gasto. 




m 

2 


- 9 - 


ORIGINAL PAtjw 
OF POOR QUALITY 

- a Produgao Eletronioa: aqui sao executadas as tarefas de geragao 
de CCTs e dos f'lmes de "1? geragao". 

- a Produgao Fotogvafiaa : aqui sao executadas todas as operagoes de 
revel agao, copiagem e ampliagao, desde a 1® geragao ate o prodji 
to final. 

- o Controle de QuaUdade (CQ); por aqui passam todas as imagens 
produzidas em todos os estagios do processo, mesmo aquelas que 
nao sao "produto final 1 '. 0 CQ pode rejeitar imagens e ordenar re 
petigao dos estagios necessarios a reobtengao daquelas dentro dos 
padroes fixados, quando isso for possTvel. Deve, tambem, info£ 
mar o Atendimento quando uma imagem tern cobertura de nuvens supe 
rior a estimativa ou e inerentemente de ma qualidade, o que pode 
ra determinar seu cancelamento no pedido do usuario. 

= o Despaaho: recebe as imagens control adas pelo CQ, embala-as de^ 

* vidamente, prepara os documentos necessarios e as encaminha a e£ 
pedigao, informando o PCPM e o Atendimento. 

A comunicagao entre os setores acima esta esquematizada 
na Figura 2.1. • > 



Fig. 2.1 - Setores diretamente envolvidos no. sistema. 


2.2 - PEDIDOS, OSs e OPs 


OSs e OPs sao, na linguagem tecnica do Departamento de Ge 
ragao de Iroagens de Satelite, Ordens de Servigo e Ordens de Produgao, 
respectivamente. Sao, ambas, formularios preenchidos pelo Atendimento,os 
quais visam disparar atividades na Produgao Eletronica (OSs) e na Produ 
gao Fotografica (OPs) para atender a um determinado pedido. Os pomes se 
originaram talvez do fato de que a Produgao Fotografica entregaria efe 
tivamente um "produto", ao passo que a Produgeio Eletronica estaria pre,s 
tando um "servigo" ao processar uma imagem para ser posteriormente re 

produzida. No entanto, o nome acabou ficando mais ligado ao setor destt 

* 

natario que ao proprio significado, e o Atendimento utiliza OSs para re 
quisitar CCTs, que sao "produto", a Produgao Eletronica. 

Na verdade, existe uma falha no significado de "Ordem de 
Produgao" restrito a entrega de um "produto". Como vis to anteriormente, 
a maioria dos produtos finals necessita de um produto intermediario (2? 
geragao ou negative colorido). A falha mencionada esta em que, se nao 
existir ainda esse produto intermediario na ocasiao em que chegar a OP 
a- Produgao Fotografica, e necessaria sua execugao, que deveria ser eji 
tao objeto de uma ordem de "Servigo". Essa ordem, entretanto, nao exijs 
te, e o produto incermediario e gerado sob control e interno na Produgao 
Fotografica. 

A Figura 2.2 esquematiza o papel das OSs e OPs relaciona^ 
do aos passos de produgao. 

Os pontos a ressaltar aqui sao; 

• •!) Uma imagem pedida que nao haja sido ainda processada vai exigir 
o preenchimento de uma OS e, posteriormente, de uma OP, ao ser 
o Atendimento informado de que a OS foi atendida (exceto para 
CCT). 

2) Cada OS se restringe a imagens de uma unida passagem do safely 
te; dessa forma, o Atendimento preenche tantas OSs quantas fo 
rem as passagens envoi vidas, ainda nao processadas, do pedido. 
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At*nd, 


I* gorggoo 


fotogr, 


l * gorogoo 


2* gtrogoo 


fotogr. 


Produto* 


i* gorogoo 


Fotogr. 


fotogr. 


2 * gorogoo 


Ntgativo 

Colorido 


Nog tivo 
Colcido 


Fofogr. 


Produtos 

Colorido* 


Control* intorno do 
Produgoo Fotografico 


Fig. 2.2 - Pedidos, OSs e OPs no sistema manual. 

3) Ao atender uma OS de filme 1? geragao, por razoes operacionais 
processam-se todas as imagens aproveitaveis da passagem (base 
ando-se este criterio nas informagoes obti das das imagens Quick 
Look), e nao apenas aquelas solicitadas na OS. 


4) Por envolver uma passagem completa do satelite, uma OS de filme 
if geragao pode atender a pedidos de diferentes usuarios, mas, 























em principle, apenas urn OS de filme deve ser elaborada para ca 
da passagem do satelite. Existe um controls no Atendimento para 
evitar que uma passagem que ja foi sollcltada a Produgao EletrS 
nica, mas ainda nao foi executada, seja objeto de uma nova OS. 

5) Em contraposigao, uma OP atende apenas a um unico pedido e se 
restringe a um unico tipo de produto, mas pode incluir imagens 
de diferentes passagens. Assim, uni pedido gerara tantas OPs quan 
tos forem os tipos distintos de produtos fotograficos solicit^ 
dos, independentemente do numero de passagens diferentes envoj^ 
vidas. * 

* 

6) Dessa forma, se dois pedidos solid tarn a mesma imagem no mesmo 
tipo de produto, duas OPs sao geradas, mesmo que esses dois pe 
didos cheguem simultaneamente ao Atendimento. Isso e necessario 
porque ao chegar ao CQ as imagens produzidas sao agrupadas por 
pedido, junto com as respectivas OPs. 

2 . 3 - 0 FLUXO DE IN^ORMAQQES E OS FORMULARIOS DE CONTROLE 

E difTcil fazer uma descri?ao sucinta de um si sterna ao 
mesmo tempo em que se procura mostrar a complexidade desse mesmo siste 
ma. Optou-se por utilizar uma metal inguagem nao muito formal, mas com 
algumas caracterTsticas de estruturagao. Empregar-se-ao tambem, para adi_ 
cionar um cunho visual a comunicagao da informagao, tipos diferentes p<a 
ra o aparecimento dos nomes dos &o£oh.<Lt> e dos fomul&rtos na descrigao. 
Alem disso, aplicar-se-a aos nomes ou siglas dos formularios um Tndice 
inferior que significa o numero de vias preenchido ou enviado de um se 
tor a outro, quando esse niimero for diferente de 1. 

■* 

Antes de passar a descrigao, sera introduzido um formulS 
rio de importancia especial. 4 

0 "CAP" (Controle de Atendimentos de Pedidos) e um formij 
lario onde o Atendimento langa o acompanhamento dos passos de produgao 
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de cada um dos itens de um pedido. La sao anotadas a identificagao com 
pi eta de cada imagero solicitada (que as vezes nao 'em especificada no 
pedido, restringindo-se a local izagao desejada e a data), bem como o nG 
mero e datas de envio e recebimento de cada OS e OP geradas com base no. 
pedido, e eventuais rejeigoes e substitutes de itens, A final idade do 
CAP e facilitar a tarefa do Atendimento em informar um usuario sobre o 
andamento de seu pedido. 

Chama-se .tambem a atengao para as seguintes abreviaturas e 
siglas usadas: "A tend" = Atendimento; "PrEl" « Produgao Eletronica; 
"PrFot" = Produgao Fotografica; "CQ" = Controle de Qualidade; "Desp"= 
Despacho; "NE" = Nota de Entrega; "LTP" = Listagem de Trabalho Prelim^ 
nar (emitida pela Produgao Eletronica como adendo ao Cadastro de Imagens 
Processadas enquanto a produgao recente nao e cadastrada); e "Listao", 
que consiste numa listagem que mostra o estado de aquisigao e process^ 
mento de todas as passagens dos satelites LANDSAT ao alcance de ,Cuiaba, 
incluindo as passagens "futuras" ate algumas semanas a.frente, para ir 
recebendo assentamentos manuais a medida que forem sendo gravadas, eji 
quanto o computador nao emite nova atualizagao do "Listao". 

A Figura 2.3 apresenta a descrigao do fluxo de inform^ 
goes, que procura acompanhar o "ciclo de vida" de um pedido dentro do 
si sterna. 


. Atmd reaebe Pedido; verified pregosj 

Consulta Cadastro de Imagens Processadas via terminal ; 
consulta LTP se neaessario. 

Preenche CAP indicando quais os itens que precisam de 
OS; prepara OP2 para os demais . 

Consulta Controle de OSs para ver se eventualmente al^ 
guma das OSs necessarias ja foi preparada; atualiza Cojn 
trole de OSs e anota o seu nQ no CAP oaso isso ocorra; 
prepara as OSs que sobraram ; inscreve-as no Controle 
de OSs. 

Se exist irem' OPs t envia OP 2 para PCPM. 

Se existirem OSs novas t envia OP 2 e Controle de OS pa 
ra PCPM. 

Fig. 2.3 - Ciclo de vida de um pedido no sistema manual. 

(continua) 


Caoo OS: PCPM aonculta LI stay e pacta dos Telex enviadoo de Cuia 
ba para caber ee a paccagem foi reoebida e graVada , e 
ee ae fitae ahegaramj ee faltam fitae, oontata Cuia 
ba. 

Consulta PrEl para obter previsao da data de process 
8amento poedvel da OSj preenahe Control e de OSs com 
a previeao e devolve-o ao Atend. 

- Preenahe Programagao de 0Ss 5 ; e dictribui 

- 1 via para oontrole proprioj 

- 1 via para a ahefia do PCPM; 

- 1 via para PrEl; 

- 1 via para OQ; 

- 1 via para Atend. 

OBS: Sn OSs chegarem ao PCPM depois de a programagao ser 
emitida,_apenas a via de controle e a via da chefia do 
PCPM serao ai atualizadas; as vias dos outros setores 
serao atualizadas pelos detentores ao receberem sua via 
das OSa. Comentarios adicionais sobre este assunto serao 
feitos no decorrer deste trabalho. 

Envia OS 2 para PrEl. 

PrEl nim aerto dia proaeesa a paQsagemjsoliaitada na OS, 
produzindo automatieamente ton Relatorio de Produgao 
impress 0 pelo aomputador ; envia 0 filme para revela 
gao e devolve 0S 2 + Relat. de Produgao ao PCPM. 

PCPM dd baixa na Programagao de OSs e envia 0S 2 e Relat. 
de Produgao ao CQ. 

CQ, apos aontrolar o filme, langa os addigos para qmli_ 

, dade ejsobertura de nuVern das imagens no Relat. de 

Produgao e 0 envia , com OS, para o Atend, enviando a 
outra via da OS para 0 PCPM. 

Atend dd laixa no Control e de OSs; atualiza CAP de io_ 
dos os pedidos afetados. 

Prepara as OPs neaecsarias e anota data e numeros nos 
CAPS; envia OP 2 ao PCPM. 

devolve OS ao PCPM e Relat. de Produgao ao CQ, . 


Caso OP: PCPM reaebe 0P 2 ; verifiaa disponibilidade e seleaiona 
material a utilizar, langando-o na 0P 2 . 

Verifiaa "Lista Negra" de usuarios maus pagadores ; se 
for o aaeo, devolve OP 2 ao Atend. 

Preenahe Programagao de 0Ps 6 ; distribui 

’ - 1 via para oontrole propria j 

- 1 via para a chefia do PCPM ; 

- 1 via para PrPot; 

- 1 via para a chefia do Lab. Fotografiao; 

- 1 via para CQ; 

- 1 via para Atend. 

» 

Fig. 2.3 - Continuagao ’ (continua) 
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OBS: so OPs chcgarem ao^PCPM depois do a programagao scr 
eraitida, PCPM consultara PrFot para saber so e posslvel a 
produgao das novas OPs ainda dentro do periodo de progr£ 
magao., Se nao for, ficarao para o perxodo seguinte; sc 
for, a via de controlc e a via da Chefia do PCPM serao 
atualizadas e as OPs enviadas. 

Envia OP para PrFot, gmrdando um via. 

PrFot num oerto dia produa as imagens ooliaitadas na OP; 

assinala-as na OP; anvia OP a produtos ao CQ. 

CQ oontrola produtos ; assinala-as na OP; envia OP e produ . 
tos ao Desp. 

Desp prepam NEg^ preenohe Controle de Notas de Entrega; 
preenohe Relagao de Itens Despachados 2 ; envia 1 via da 
N £ e da Relagao de Itens Despachados ao PCPM; envia 
OP, 1 via da Nota de Entrega e da Relagao de Jtens 
Desgachados ao Atend; envia os produtos e HE z a ex p£ 
digao ; e envia 1 via da NE ao setor oontabil . 

PCPM da baixa das OPs na Programagao de OPs e preenohe 
Relatorio Diario de Produgao. 

Atend atualiza CAP e arquiva OPs e NE na pasta do usua 
rio ; se terminou o pedido , arquiva tanibem CAP. 

Fig. 2.3 - Conclusao 


A descrigao acima nao intlui os pedidos de CCT, cujo cojn 
trole e bem mais simples, uma vez que a 05 de CCT atende apenas a um pe 
dido e nao ha OP envolvida. No entanto, pedidos de CCT tambem sao pro 
gramados e acompanhados no CAP. 

Em adigao a descrigao acima, que acompanhou o ''ciclo de 
vida" de um pedido, apresentar-se-ao com mais detalhe, como mencionado 
durante a descrigao, alguns procedimentos relativos a programagao das 
tarefas, que sao cronologicamente desvinculadas desse "ciclo de vida". 

0 mes e dividido em tres "perTodos de produgao", 0 primej[ 
r o e de aproximadamente 2 semanas e os outros dois de 1 semana cada um. 
0 primeiro termina 2 dias uteis antes do fim da quinzena para pernri 
tir fazer o fechamento quinzenal; o ultimo, 2 dias antes do filial domes 
para o fechamento mensal. 


No primeiro perTodo e programado tudo o que existe penden 

te, A /nodi da que vao chegando novas OSs e OPs, el as vao sendo acrescen- 

• tadas a programagao do perTodo corrente ou deixadas para o proximo pe 

rTodo, dependendo da carga de trabalho ja programada e da urgencia dos 

pedidos. Ao final de um perTodo, OSs e OPs programadas mas nao produzj[ 

das sao transcritas para o inTcio da programagao do perTodo seguinte, e 

e emitido o Relatorio de Produgao do PerTodo, acumulado dos Relatorios 

Diarios de Produgao elaborados diariamente. 0 Relatorio de Produgao do 

PerTodo e datilografado em 6 vias: uma para controle do PCPM, uma para 

a chefia do PCPM, uma para a chefia da Divisao de Processamento (que in 
# — 

clui o Laboratorio Fotografico e o Eletronico), uma para a chefia do La 
boratorio Fotografico, uma para o Atendimento e uma para a chefia do De_ 
partamento de Geragao de Imagens de Satelite. 


CAPlTULO 3 


0 SISTEMA AUTOMAT I Z ADO PROPOSTO 


0 INPE esta adquirindo urn novo sistema de aquisigao e pro 
cessaniento de imagens para fazer fage a nova geragao de satelites de 
sensoriamento remote. inaugurada com o langamento, realizado em julho 
de 1982, do LANDSAT-4, que leva a bordo sensores bem mais sofisticados 
do que os atuais e fornece dados em taxa e volume seis vezes maiores 
que os correntemente recebidos e processados, 

Para a concorrencia internacional que foi aberta em abril 
de 1980, o INPE, calejado pela operagao, durante 6 anos, de urn sistema 
de processamento recebido sem qualquer "software" de gerenciamento e eja 
castramento de sua propria produgao ("software" esse que teve de ser pe 
* nosamente desenvolvido "in-house", com serias restrigoes impostas pelas 
limitagoes de "hardware" do sistema), teve o cuidado de exigir explicit^ 
mente essas caracterTsticas para os sistemas a serem propostos. 

» i 

» 

Escolhido o fornecedor, o INPE participou ativamente, ijn 
elusive como forma de redugao do prego contratual, do projeto do "soft 
ware" do sistema, incluindo a parte de gerenciamento da produgao. Esse 
gerenciamento abrange a programagao da Produgao Eletronica e respectivo 
controle e cadastramento automatico. Nao foi especificado, entretanto nja 
nhum "software" que fizesse o mesmo com relagao a Produgao Fotografica, 
ficando essa parte para ser desenvolvida no Brasil. 

A ideia inicial deste trabalho foi justamente a de preen^ 
cher esta lacuna, desenvolvendo o gerenciamento da Produgao Fotografica 
e implementando-o inicialmente no minicomputador auxiliar (urn PDP-11/34) 
do Laboratorio Eletronico, onde ja estava implantado o Cadastro de Ima 
gens Processadas. Esse gerenciamento seria posterio 1 mente transportado 
para o computador do novo sistema, quando este fosse instalado no Labo 
ratorio Eletronico. 


Em vista, entretanto, das decisoes tomadas no inTcio de 
1982 com relagao a mudanga da sistematica de funcionamento do Banco de 
Imagens Terrestres (ver inTcio do CapTtulo 2), chegou-se a conclusao de 

* que uma das hipoteses basicas para a utilidade i media ta deste t^abalho 
passara a ser falsa. Publicado o Catalogo de Imagens Adquiridas e pro 
cessando imagens apenas sob pedido, deixaram definitivamente de ser maio 

' ria os pedidos que solicitavam imagens ja processadas (e, portanto, que 
envoi viam apenas Produgao Fotografica) . * 

Resolveu-se, em face dessa perspectiva, estender o escopo 
deste trabalho e incluir nele tambem o gerenciamento da Produgao Eletrci 
nica, de forma que a implementagao realmente solucionasse problemas 
reais e imediatos do INPE. 

Deve-se observar, neste ponto, que esta parte do gerenci£ 
mento e fundamental mente diferente do que foi projetado (e atualmente em 
desenvolvimento no Exterior) para o sistema do LANDSAT-4. Neste sistema, 
o computador (um VAX-11/780, com configuragao bastante poderosa)eo me£ 
mo para produgao e gerenciamento, alem de dispor de recursos de "harjd 
ware" e "software" vastamente superiores aos do mini computador com que 
se esta trabalhando. Q gerenciamento da Produgao Eletronica no sistema 
do LANDSAT-4 praticamente prescinde de qualquer tipo de papel , excegao 
feita aos relatorios e listagens de impressora. No gerenciamento pro 
posto, o papel ainda e importante - ainda existem OSs e OPs, embora im 
pressas pelo computador, e alguns formularios de controle ainda sao 

• preenchidos a mao — , mas sua onipresenga e quantidade, bem como pree£ 
chimeircos e transcrigoes, foram drasticamente reduzidos. 

Cumpre ressaltar que o sistema aqui proposto, a menos do 
gerenciamento da Produgao Eletronica (que continuara, no entanto, fun 
cionando no computador atual para produgao dos dados MSS), sera inte 
gralmente aproveitado no sistema do LANDSAT-4, feitas apenas as adapt£ 
goes necessarias na base de dados para acomodar as caracterTsticas do 
sensor "Thematic Mapper" (7 bandas espectrais em lugar de 5, formatos 
alternatives para CCT etc.). As fungoes e os procedimentos operacionais 
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* 

sorao exatamente os mesmos, embora nao tenham utiliz$do todas as facili 
dades de "software" e "hardware" oferecidas pelo VAX. 

Estando ja esbogados a estrutura e os procedimentos para 
o gerenciamento da Produgao Fotografica, o esforgo maior que teve de ser 
despendido apos a decisao de implementar tambem o da Produgao Eletroni_ 
ca fo’i o de definir os procedimentos operacionais que permitissem acomo 
dar com seguranga a programagao e o control e de atividades adicionais 
(com caracterTsticas bastante diferentes das originais), sem aumentar 
significativamente a complexidade do "software" ou da base de dados a 
ser gerenciada. 

As f ungoes iniciais projetadas para o sistema conti nuaram 
validas e foram mantidas na implementagao, de uma forma mais abrangente. 
Essas fungoes sao: 

a) facilitar a introdugao dos itens de pedido em filas de produgao; 

* i 

b) gerenciar as filbs de produgao; 

c) emitir relatorios de produgao automatizados; 

d) permitir alteragoes* cancel amentos e adigoes de itens em pedj[ 
dos pendentes; 

e) consul tar o andamerito das filas de produgao; 

f) control ar o gas to de material e emitir sumarios de produgao pa 
ra fins estatTsticos e avaliagoes de desempenho; 

g) auxiliar as atividades de despacho dos produtos, control ando re 
messas parciais. 
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3.1 - 0 COMPUTADOR HPSPEDEIRO 

Uma breve apresentagao da configuragao de "hardware" e 
"software" do mini compute dor onde esta funcionando o sistema objeto de:s 
te trabalho provavelmente ajudara a just ifi car a afirmagao, feita na 

„ Introdugao, de que bavia eampo para aplicagao de varias das tecnicas a 
presentadas nos cursos ministrados na Area de Computagaio Aplicada. 

A configuragao de "hardware" baseia-se, como ja menciona 
do, em um PDP-11/34 (ver Figura 3.1). A memoria e MOS, com 80K palavras 
de 16 bits, sem protegao contra queda de energia. Como memoria auxiliar, 
o si sterna dispoe de 3 discos de 2,5 MB cada, sendo dois fixos e um rem£ 
vTvel. Um dos discos fixos e totalmente ocupado pelo sistema operacio 
nal; o outro armazena arquivos e programas residentes, entre os quais se 
conta o "Mini-Cadastro" (versao reduzida do Cadastro de Imagens Proce^ 
sadas, que fica "on-line" para permitir consultas por terminal a qual_ 
quer instante), que atualmente ocupa, sozinho, quase metade do disco (o 
espago restante e alocado para desenvolvimento de "software"). 0 disco 
removTvel e reservado para sistemas ja desenvolvidos e operacionais, 
que nao necessitam permanecer "on line" e cujos "cartridges" sao reveza 
dos de acordo com uma escala estabelecida. Infel izmente, os arquivos e 

parte dos programas do sistema aqui proposto tern de residir no disco fi 

• * 

xo, o que reduz ainda mais o espago de desenvolvimento. 



Fig. 3.1 - Configuragao de "hardware" do Sistema Hospedeiro. 
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Ainda como memoria auxiliar existem duas unidades de fitfc 
magnetica, cujo uso mais frequente, alem de comportar os cadastros de 
maior porte, como o de usuarios,eo de carregar e salvar programas e ar 
quivos de fitas de sistema. Essas unidades de fita, entretanto. tern seu 
uso restrito, pois sao compartilhadas pelo sistema da Produgao Eletronj[ 
ca, por meio de uma chave que as conecta a um ou ao outro sistema. Djj 
rante a produgao de CCTs, por exemplo, o PDP 11/34 fita sem acesso a f|_ 
ta magnet ica. 

Os outros perifericos sao o terminal console de operagao, do 
tipo "hardcopy", uma impressora de 80 colunas e 20 0 linhas/minuto, uma 
leitora de cartoes de 300 cpm e uma interface multi pi exadora para ate 8 
linhas do tipo elo de corrente. A essa interface estao no momento conec 
tados 5 terminals de video, assim distribuTdos: 

- um na sal a de operagao; 

- um na sal a dos programadores; 

- um no corredor, para uso geral ; 

- um no Atendimento; 

- um entre o Controle de Qualidade e a Sala de^Despacho, 

Este ultimo terminal foi localizado estrategicamente para 

* i 

atender os dois setores que tern mais interagao com o sistema automatiza 
do, alem do Atendimento. 

0 sistema operacional e o RSX11-M, que suporta multiprogr^ 
magao com um limite pratico de 16 usuarios simultaneos, em di versos nT 
veis de prioridade. 

Como linguagens de programagao siTo disponTveis o MacroAs^ 
sembler, o FORTRAN IVe o BASIC-plus. Ha algum tempo, entretanto, foi 

, xr 

obtido um pre-processador RATFOR, que equivale ao FORTRAN acrescido das 
construgdes basicas de programagao estruturada (IF-THEN -ELSE, WHILE, 
REPEAT etc). E nesta ultima "linguagem" quefoi implementado todo o sis^ 
tema, a menos de algumas rotinas utilitaria§ codificadas em MacrpAssem- 
bler. 
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0 RSX11-M adro'te um DBMS (Data Base Management System), 
mas apenas para sistemas bem maiores. Existe no DGI somente um 
conjunto de facilidades para ISAM (Indexed-Sequential Access Method), 
as quais nao sao diretamente acessTveis por FORTRAN. Para dois siste 
mas que foram desenvolvidos internamente ao Departamento, os quais ne 
cessitavam de ISAM, foram escritas rotinas em MacroAssembler que ser^ 
vissem de interface. Dessa forma, uma sub-rotina deve ser chamada, a 
parti r do FORTRAN, para abrir um arquivo indexado; outra, para ler do 
arquivo; outra, para escrever nele; outra, para atualizar um registro 
etc. Alem dessa inconveniencia, as rotinas de acesso ISAM ocupam um 
espago cinco a’seis vezes major que o necessario para um programa de 
tamanho "medio" no DGI 300 linhas). Dessa forma, alem da area ocu^ 
pada em disco pela imagem executavel * qualquer programa que utiliza 
ISAM do RSX11-M precisa ser segmentado em "overlays", o que significa 
um mTnimo de aproximadamente so minutos para o "link" do programa. Por' 
essas razoes, decidiu-se nao utilizar o ISAM do fabricante neste si£ 
tema. Fez-se, como se vera adiante, um ISAM especTfico. 

3.2 - A BASE DE DAD OS 

3.2. 1 - A INFORMACAO A ARMAZENAR 


As informagoes necessarias ao sistema proposto foram or^ 
ganizadas em dois conjuntos de arquivos: um conjunto contem os dados 
relativos aos pedidos dos usuarios; o outro e relacionado aos parame 
tros e recursos do sistema, tais como produtos disponTveis, estado e 
cupacidade de linhas de produgao, material utilizado etc. 

r 

A estrutura e relacional com arquivos, sempre que possjf 
veT, na 3? Forma Normal (Date, 1976). 

• V 

Para as informagoes referentes aos pedidos em si, exis 
tern tres arquivos: 
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- o de oabegalhos de pedido ('PEDCAB.bAT) , em que estao conti dos os 

dados relativos ao pedido como um todo: n9 de usuario, data de 

* 

chegada, data prometida, condigoes de pagamento etc., alem de, 
e claro, o n9 do pedido; 

- o de itens dos pedidos (PEDUM, DAT) , erq que cada registro repre 

senta uma linha de pedido do usuario, com o n9 do pedido, os nO 

meros da pagina e do item, a identificagao da cena pedida, as baji 

das desejadas, o tipo de produto, a quantidade de copias etc. bem 
como a situagao do item, atuaHzada ao longo de sua produgao; 

- o de instTugoes espeoiais (PE00BS.DAT), em que cada registro cori 
tern, alem do n9 de pedido, um certo numero de caracteres onde o 
operador do Atendimento pode eolocar, em formato livre, observe 
goes sobre alguma situagao ou providencia especial relacionada ou 
solicitada no pedido. Essas observagoes sao,viade regra, relate 
vas ao envio dos produtos (para pvodutos especiais sao reservados 
codigcs especiais de produto, que exigirao atengao na sua prod£ 
gao). Obviamente, nao e necessario que um pedido possua um regis^ 
tro neste arquivo. 

Os arquivos relativos aos parametros e recursos do siste 
ma sao em numero de 4: 

- o de pvodutos (PEDPRO.DAT), com seu niimero, sua designagao abre 
viada, o material a utilizar na produgao, a linha de produgao 
principal, a alternativa etc.; 

- od emateviais (PEDMAT.DAT), com seu numero, sua designagao abre 
viada, a quantidade gasta na ultima jornada, o gas to acumuladono 
perTodo etc.; 

- o de lirihas de produgao (PEDLIN.DAT), com seu codigo, sua situa 
gao operacional, sua carga de trabalho etc.; 


- o de produtos x linha? de produpao x materials, onde ficam, as_ 
sociados a cada combinagao (produto, 1 inha de produgao, material) 
valida, os respectivos consumo medio por unidade produzida, a ca 
pacidade de produgao etc. 

0 conteudo dos arquivos consta do Apendice B. 

3.2.2 - OS METODOS DE ACESSO 


Devi do a natureza dinamica dos arquivos de pedidos (fre 
quentes insergoes e remogoes de registros) foi , desde logo, descartada 
a bipotese de "hashing" como metodo de acesso. Por outro lado, a nece£ 
sidade de acessar os arquivos em diferentes sequencias conforme a fun 
gao processada (como sera visto mais a frente) impos a utilizagao de 
acesso indexado. 0 arquivo de itens de pedido, por exemplo, necessita de 
5 chaves diferentes, num total de 30 "bytes". 

Uma vez que o registro do arquivo possui cerca de 30 
"bytes", chegou-se a conclusao de que os arquivos de. Tndices,incluindo 
chaves e ponteiros, ocupariam, dessa forma, mais espago que o proprio 
arquivo de dados. 

i 

A fiffl de minimizar o espago tornado em disco (.que, como 
visto, e severamente racionado) optou-se, apos um estudo das situagoes 
em que cada chave de acesso seria necessaria, por um compromisso que 
consiste no seguinte: 

- os arquivos sao mantidos ordenados por uma das chaves de acesso, 
o que elimina um dos arquivos de Tndice; 

. - para chaves de acesso utilizadas em fungoes interativas com opji 
rador sao mantidos arquivos de Tndice residentes; 

- para chaves de acesso utilizadas por programas nao interativos 
sao construTdas matrizes de Tndice durante a execugao. 
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3.2.2. 1 ~ A MANUTENCAO DA ORDENACflO FlSICA 

Para a manutengao da ordenagao de arquivos, foi necessa 
rio considerar tres situagoes: a de insergao de um registro unico,ade 
insergao de um grupo de registros e a de remogao de um grupo de regis^ 
tros. A distingao entre a primeira e a segunda situagoes deriva deacon 
tecer a primeira em sessoes interativas, e a segunda em "batch". 

Para a primeira. situagao (insergao de registro unico) utj[ 
lizou-se um metodo primitive mas rapido, gragas ao fato de queosarqui_ 
vos envoi vidos nesse t^’po de situagao tern registros bastante pequenos. 
Esse metodo consiste simplesmente em local izar a pqsigao em que o novo 
registro deve ser inserido no arquivo, e reescrever uma posigao mais 
adiante todos os registros daT ate o final, abrindo dessa forma espago 
para o novo registro. A rapidez e explicada pelo fato de que entradas 
e saTdas fisicas so se fazem em blocos' de 512 "bytes", e com registros 
pequenos (4 a 8 "bytes") a maior parte da movimentagao de dados e fej[ 
ta na memoria interna. Alem disso, para a ocorrencia mais comum dessa 
situagao (a introdugao de um novo cabegalho de pedido) o novo registro 
e acrescentado no final do arquivo de cabegalhps, sem necessidade de 
movimentagao de registros, exceto no arquivo Tndice. 

A segunda situagao (insergao de grupo de registros) ocor 
re apenas na introdugao de um novo pedido ou substituigao de itens em 
um pedido existente. Em amhos os casos, os novos registros sao criados 
em um arquivo a parte (PEDITM.ADD) , que e mergido com o arquivo priji 
cipal apos terminada a sessao interativa com o operador. Dessa forma, 
este nao e expos to a espera dessa operagao, onde e criada uma nova ver 
sao do arquivo de itens, sendo a versao antiga e o arquivo adendo apa 
gados apos terminados com sucesso o "merge" e a recriagao dos arquivos 
de indice re«i dentes. 

A terceira situagao (remogao de registros) na verdadenao 
oaome no si sterna; todos os registros inativos, mesmo aqueles corres^ 
pondentes a itens cangelados ou terminados, sao deixados no arquivo, de 
vidamente assinalados, ate a corrida de um programa "coletor de lixo". 
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que cria tambem novas versons dos arquivos de pedidos (seni os registros 
a remover) e dos arquivos de Tndice residentes, A nao-remogao de regis, 
tros, alem de evitar os problemas inerentes a essa operagao em arquivos 
multi-indexados, elimina algumas das desvantagens de nao manter urn ar 
quivo "historico de operagao" do sistema. EstatTsticas de funcionamento 
do sistema, por exemplo, podem ser incorporadas ao proprio "coletor de 
lixo", que, rodando mensalmente, mantem os arquivos com urn tamanho pe 
queno o suficiente. Urn maximo de 4.000 itens presentes em urn dado ins. 
tante foi previsto no projeto do sistema, e isso representa aproximada 
mente apenas 10% dos 2,5 MB do disco fixo utilizado, gragas a compact^ 
gao de informagoes empregada (ver Segao 3.2.1). Alem disso, 4.000 itens 
representam o dobro do maior numero de imagens ja processado em urn mes 
rio DGI. 

3. 2. 2. 2 - OS ARQUIVOS DE TNDICE RESIDENTES 

Gragas a manutengao da ordenagao fTsica dos arquivos prijn 
cipais e a criagao, durante a execugao, das matrizes-Tndice para chaves 
de acesso usadas em programas nao interativos, pode ser reduzido para 
apenas 3 o numero de arquivos de Tndice residentes: urn para o arquivo 
de cabegalhos de pedido, que permite o acesso por numero de controle de 
usuario, e dois para o arquivo de itens de pedido, que permitem o aces^ 
so, respectivamente, por tipo de produto e por passagem do satelite s£ 
licitada (mencionada aqui apenas a parte mais significativa das chaves). 

0 arquivo Tndice para os cabegalhos e mantido ordenado com 
o mesmo metodo utilizado para insergao de registro unico descrito ante 
riormente, conforme mencionado. 

0s arquivos Tndice para os itens sao reconstruTdos pelo 
programa que faz o "merge" do arquivo adendo com o arquivo de itens. A 
ordenagao das chaves, acompanhadas dos respectivos ponteiros para regijs 
tro, e feita na memoria interna; as chaves sao suficientemente pequenas 
para que 4.000 ocorrencias caibam no espago do programa, que e segmenta 
do em "overlays" para minimizar a porgao de codigo residente durante a 
fase de reconstrugao dos Tndices. 
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Devi do ao numero maximo relativamente pequeno de regis, 
tros, apenas um ntvel de indexagao e utilizado, isto e, cada registro 
de arquivo Tndice content um ponteiro que indica direfcamente o numero do 
registro correspondente no arquivo principal. 0 valor da chave de aces^ 
so faz parte do registro dos arquivos tndice para permitir bu'sca e de 
limitagao sobre eles. 

3. 2. 2. 3 - AS MATRIZES DE TNDICE 


A utilizagao desta tecnica (construgao de matrizes-tndj[ 
ce durante a execugao para programas nao-interativos) foi facilitada 
pelo fato de que o processamento efetuado por esses programas e really 
zado, em sequencia, sobre subconjuntos disjuntos do arquivo prind 
pal, que correspondem a intervalos conttguos em tim dos arquivos de Tn 
dice res i dentes. 

Assim, dispoe^se, por -exemplo, do arquivo tndice 

PEDITM.IX1, ordenado por produto/passagem do satel ite/ponto solicitado/ 

* * * > 

data limite; na geragao ’de OPs precisa-se da sequencia produto/data lj_ 
mite/passagem do satel ite/ponto solicitado; como se trabalha com apenas 
um produto por vez, de Kmita-se a ocorrencia desse produto em 
PEDITM.IXl, leem-se os registros delimitados {que constituem apenas uma 

i 

fragao do arquivo) para a memoria, ordena-se por ordenagao interna e 
tem-se uma matviz indice para acesso ao arquivo principal pela sequen 
cia desejada; ao iniciar o pr5ximo produto, repete-se o processo. Isso 
evita que se precise manter e gerenciar um arquivo tndice adicional com 
a sequencia de acesso aqui utilizada. Em outras situagSes o procedi meji 
to e o mesmo. 

A forma e o metodo de criagao das matrizes-tndice sao 
identicas aos dos arquivos-tndice, cabendo a distingao apenas por aque 
las res idi rent na memoria interna e desaparecerem apos a execugao do pro 
grama que as criou. 


3. 2. 2. 4 - A ORDENACAO E BUSCA 


Sendo todas as ordenagoes efetuadas na memoria interna, es^ 
colheu-se para es'sa operagao o metodo Quicksort combinado com o do Inser. 
gao Simples, que e o mais eficiente disponTvel. 0 limiar otimo para uti_ 
lizagao da Insergao Simples foi determinado por experimentagao no compu 
tador PDP-11 /34, mas e urn parametro que pode ser facilmente alterado, no 
caso de transporte para outro computador. 

Para a local izagao de registros, sendo todos osarquivosde 
acesso direto e ordenados fisicamente, utilizou-se a busca binaria. 

Urn particular interessante a comentar sobre os metodos meji 
cionados e que eles foram implementados como rotinas reaurs-ivas , o que 
permite a sua forma mais simples de codificagao. Tirou-se proveito da a£ 
quitetura interna de "stack" do PDP-11, utilizada pel a instrugao Jump to 
Subroutine (Tanembaum, 1976), e do fato de quo o compilador FORTRAN IV do 
RSX11-M nao se "lembra" de impedir que uma sub-rotina chame a si mesma. 
Urn pequeno gerenciamento explTcito de pi 1 ha e necessario, mas as rotinas 
mencionadas funcionaram com perfeigao. 

3.3. - 0 FLUXO DE INFORMAQAO 

Com o si sterna automatizado central izando as informagoes, o 
fluxo destas entre os setores envoi vidos passou a ser como o representan^ 
te na Figura 3.2. 

Pode-se notar, comparando este diagrama com o da Figura 
2.1, que o sistema automatizado tomou topologicamente o lugar anterior 
do PCPM, que passou a exercer urn papel mais "executivo" de controle so 
bre o sistema, como sera visco adiante. 

E mais facil identificar neste diagrama os tres "loops" 
principals de controle da produgao, destacados pelas setas tracejadas: 
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1) o “loop" da Produgao Eletronlca; 

2) o “loop" da Produgao Fotografica; 

3) o "loop" principal visto do Atendimento ("loop" externo). 



Fig. 3.2 - Fluxo de informagao no sistema proposto 

.A Figura 3.3 abaixo descreve o fluxo operacional, da mes. 
ma forma utilizada na Figura 2.3. 


Atend recebe Pedido; verifica pregos e Lista Negra. 

Consult a, via terminal, o Cadastro de Imogens Prooessadas 
e o de Imogens Adquiridas. . . 

Introduz o pedido , via terminal , indicando , para aada 
item , sua situagao: a) aguardando OS de 1 ? geragao, b) 
aguardando OS de Produto Intermediario (conceito introdu 
zido agora) 3 ou a) aguardando Produto Final; estima Data 
Limite. 

Sistema emits Relagao de Itens do Pedido 2 ., uma via fioa 
no Atend; a outra e enviada ao Desp. 


Caso Aguardando OS de 1? geragdo: 

Sistona emite OS de films y indicando na. propria OS see nova 
ou otuglizagao (caso exista OS anterior pendente sobre a 
mesma passagem ) . 

Fig. 3.3 - Fluxo operacional no sistema automatizado. 

(continua) 
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PrEl nrn oerto dia exeouta a OS, enviando c film para reve 
lagao e a ultima OS para o CQ. 

OQ aontvola o film e inform, via terminal, a proximo ei 
tuagao doe itene presentee na OS ; 

, a) aguardando OS da 1. geragao (para itene regeita 
doe reouperaveis por novo pvooeseamento ) ; 
b) aguardando OS de Produto Intermediario (itene 
aprovadoe que neoeeeitam de P.X.); 

■ a) aguardando Produto Final (itene aprovadoe que 
nao neoeeeitam P.X.)} 

d) oanoelado (itene regeitados onde e inutil repe~ 
tir a 1. geragao; ex.: md qualidade doe dadoe na 
fita de CuicSa) . 


Caso Aguardando OS de Produto Intermediario ^ 

Sistena emite OS de P.X., indioando na propria OS ee e nova 
ou atualizagao . 

PrFot num oerto dia produz o Produto Intermediario, envian 
do-o para revelagao e a ultima OS para o CQ. 

CQ oontrola o P.X. e in forma, via terminal, a proximo si 
tuagao doe itene presentee na OS de P. I. : 

a) aguardando OS de 1 7 geragao (itene regeitados re 
cuperaveis por novo prooeseamento eletronioo; po_ 
dfe aoonteoer quando o P.X, e negativo colorido e 
ha problema de registro entre bandae); 

b) aguardando OS de P.I, > (quando e neoessario repe_ 
tir o P.X. ); 

o) aguardando Produto Final ; 

. d) oanoelado (para problems irreouperaveis em face 
da qualidade e oobertura de nuvene exigidas pelo 
usudrio) . 


Caso Aguardando Produto Final 

Sistena emite OP para a PrFot, ordenada por Data 'Limite doe 
itene de pedido envolvidos , e emite tambem Sumario de 
OPs para o CQ, ordenado pela Xdentifioagao dae imagens 
presentee nas OPs, inoluindo tambem eventuais imagens 
"em aoabamento" . 

PrFot reoebe OP e produz os itene solioitados na ordem eeta 
beleoida, enviando os produtoe ao CQ a medida que vao 
eendo terminados, dando baixa, na OP, dos itene produzi. 
doe. 

CQ oontrola os produtoe a medida que vao ohegando, langan 
do os oodigos apropriados para oada imagem no Sumario 
de OPs. 

Ao final da gornada de trabalho, sao reoolhidas todas as 
OPs emitidas para a gornada, e os itens assinalados oo 
mo "produzidos" que nao tiverem ohegado ao CQ sao as si 
nalados eomo "em aeabamento" no Sumario de OPs, que ~e 
enviado ao PCPM, indo os produtos aprovadoe ao Desp. 

Fig. 3.3 - Continuagao Original PAGE IS ' (continual 

OF POOR QUALITY 



- 31 - 





I 


% 


L 


r 

ft • 


1 L: 

ij 


y i> 



L 


rt* 


m 



PCPM, antes do intoio da jornada de trahalho et.guinte, . intro. 
duz t via terminal , oo oodigoa preaentea no Sumario de OPs, 
quo podem deteminar as aeguintes^ aituagoea para oa itena; 

, a) aguardando OS de 17 geragao; 
b) aguardando OS de P.2‘, ; 
o ) aguardando Produto Final ; 
d) cm Aoabamento ; 

‘ e) aguardando Despaoho; 

f) aanoelado. 

As airaxmatanoias para aada situagao aaima ou eao eviden 
tea , ou da form menoionadaa anteriormente, 

OBS: 0 ciclo sc repete; imagens que mantiveram, por rejeigao 
ou por nao terem sido produzidas, a situagao de "Aguardando 
Produto Final", sao reemitidas em OP na jornada seguinte, jun 
tamente com novas imagens que caibam na carga admissive! da 
Linha de Produgao. Imagens "em acabamento" sao emitidas ape 
nas no Sumario de OPs, uma vez que ja foram produzidas, mas 
ainda nao controladas. 


Desp reaebe produtos aprovadoa e dd baixa em sua via da Rel a 
gao de I tens de Pedido. Meamo. que o pedido nao esteja com 
pleto, pode sen pedido ao Sistana um Model o de Nota de 
Entrega, que relaoionard todos os itena " aguardando deapa 
oho", aendo sua situagao automatioamente atualisada para 
"despadhados" . Desp emite entao Nota de Entrega 5 ; preen 
ohe Control e de Notas de Entrega; distribui as diversas 
viaa de Nota de Entrega eonforme deaorito na segao 2.3,en 
viando adioionalmente apenaa o Model 0 de Nota de Entrega 
ao At aid. 

Ateid dd baixa ' dos item despaahados em sua via da Eelagao de 
Item do Pedido; oonfere e avquiva Nota de Entrega e res_ 
peotivo Model 0 . 


Fig. 3.3 - Conclusao 


A descrigao apresentada acima, da mesma forma que a aprei 
sentada para 0 sistema manual na Segao 2.3, nao e completa. 0 intuito 
aqui e de possibilitar uma comparagao no mesmo nTvel de detalhe, ao mejs 
mo tempo em que se da uma visao de conjunto do funcionamento do siste 
ma automatizado, cujos di versos aspectos serao aprofundados mais .adiajn 
te. 


Observe-se que, embora pouco menor em extensao do que a 
do sistema manual, a descrigao acima envolve bem menos formularies, a 


y 

t: 
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maioria dps quais sao emitidos pelo computador, e menos interapoes eji 
tre os setores parti cipantes. 

Da mesma forma que na Sepao 2.3, apresentar-se-ao, apos 
a descripao acima, que acompanha o "ciclo de vida" de um pedido, os 
procedimentos que ocorrem paralelamente, desvinculados, entretanto,de^ 
se "ciclo de vida". 

Deixaram de existir, como tais, os "perTodos de produpao" 

mencidnados na Sepao 2.3. A programapao das' OSs conti nua sendo feita 

dentro da Produpao Eletronica (e, agora, tambem na Produpao Fotograft 

ca, no que concerne aos produtos intermediaries) , com a vantagem de 

que OSs "atual izadas" sao emitidas pelo computador, sem necessidade de 

anotapoes manuais para complementer OSs anteriores correspondentes.Toir 

nou-se desnecessario o "Controle de OSs", ja que o sistema "conhece" 

todos os pedidos que dependem de uma certa OS. Na verdade, ate numeros 

de OS ou de OP deixaram de ser utilizados. Cada OS tern como referenda 

a passagm do satelite a ser processada, e cada OP e identificada ap£ 

nas pel a linha de produgao fotografica respectiva. Para encaminhar um 

produto, as OSs contem, para cada item, o nQ do pedido a que ele per 

tence. Mas nao ha mais OPs dedicadas a um unico pedido, embora seja fS 

cil identificar, dentro delas, os itens que partilham essa condipao. 

% 

A programapao das OPs e "diaria" no sentido de "jornada" 
de trabalho; mas, alterando o numero de horas dessa jornada nos arqui_ 
vos de Recursos, el a pode durar meio, um, dois ou cinco di as. Consider 
rando, porem, que apenas ao final da jornada e atualizada a situapaodos 
itens de pedido no sistema, e interessante que a "jornada" nao dure mais 
que um ou dois dias para nao aumentar muitoo "tempo de resposta" do siV 
tema. Como nao e pratica uma jornada muito curta, acredita-se que sua 
durapao ideal sera mesmo de um dia. 

Com relapao as OSs, o sistema, como ja foi dito, nao cu_i 
da diretamente de sua programapao; dessa forma, para garantir o menor 
tempo de resposta possTvel para eventuais mudanpas na programapao com 
relapao a itens urgentes ou atual izapoes, as OSs novas ou atual izapoes 




sao emitidas. mpetidamente , em interval os regulares, automaticamente, 
ate que o operador responsavel informs o sistema, via terminal, o seu 
"ciente". Este procedimento tem a vantagem de assegurar, contra extr£ 
vios ou eventuais falhas de impressora, a chegada da OS ao destino,d£ 
do que, por ser urn evento "assincrono" (ao contrario da emissao das 
OPs), ninguem esta "esperando" por ele e sua ausencia nao seria note 
da. 


Com relagao ao aontrole da produgao , o papel do PCPM e 
o de analisar os relatorios emitidos pelo sistema e agir sobre os ns 
cursos quando necessario. Assim, por exemplo, ao notar que o material 
comprometido com os pedidos de urn certo produto esta se avizinhando do 
estoque disponivel, o PCPM pode definir urn material alternativo para 
passar a ser usado naquela 1 inha de produgao; ao notar que o rnvel de 
rejeigao real em uma 1 inha de produgao esta abaixo ou acima do estimai 
do, pode ajustar o consumo medio daquela 1 inha de produgao nos arqui^ 
vos de recursos, de forma que o calculo de comprometimento de material 
seja mais preciso por ocasiao da entrada de novos pedidos; se urn pedj_ 
do grande com alta prioridade entra no sistema com uma data limitetal 
que e imposslvel de ser obedecida dentro da jornada normal detrabalho, 
o numero de horas da jornada pode ser temporariamente aumentado nos 
arquivos (com a correspondente programagao de horas extras), de forma 
que o pedido, que automat icamente entrara no inTcio da "fila" pela pr£ 
ximidade da data limite, seja todo programado dentro do numero de jo£ 
nadas disponivel; observando urn aumento de rejeigoes em uma determine 
da linha, de produgao devido a urn determinado problema, o PCPM podera 
tomar as providencias para que a causa seja encontrada e corrigida. 

Ve-se, dessa forma, que as atividades contiriuam basics 
mente as mesmas de antes, mas simplificadas pela possibil idade de agir 
sobre os parametros do sistema e facilitadas pela natureza mecanizada 
dos relatorios a analisar. 


3.4 - OS PROCEDIMENTOS OPERACIONAIS 


Embora nao pertengam exatamente ao ambito da Computagao 
Aplicada no que diz respeito ao desenvolvimento de "software", os pro 
cedimentos operacionais revel aram-se o aspecto que mais tempo exigiu 
para sua definigao, na fase de projeto do si sterna aqui expos to. A preo 
cupagao fundamental era definir: 

a) urn conjunto de estados para os itens de pedido, que fossem sig 
nificativos em termos de andamento da produgao e via veis quanto 
ao control e das transigoes; 

b) quais as informagoes necessarias e os procedimentos a serem se 
guidos pelos operadores, nos diversos setores, para que as trari 
sigoes pudessem ser dirigidas de forma correta, segura e efj[ 
ciente. 

Em suma, desejou-se urn .si sterna que fosse efetivo e confi£ 
vel quanto a sua fungao e confortavel quanto a sua utilizagao. Nao se 
acredita ter atingido a definigao ideal, mas pelo menos ter elaborado 
urn projeto que resultou em urn si sterna bastante efetivo, suficientemen 
te confiavel dentro de suas limitagoes e razoavelmente confortavel de 
operar. 

A! guns aspectos dos estados possTveis e dos procedime£ 
tos relativos ja foram mencionados na segao anterior. La se delinearam 
algumas das decisoes-chave quanto a "macro-procedimentos" , se e que se 
pode chama-los assim: a criagao das OSs de produto intermediario; a 
emissao repetida das OSs ate confirmagao do operador; a eliminagao do 
conceito de "perTodos de produgao" etc. Dentro desse esquema, apreseji 
tar-se-ao agora o conjunto de estados e os procedimentos em cada setor. 

3.4.1 - 0 CONJUNTO DE ESTADOS 

Conforme mencionado anteriormente, a ideia central do 
projeto era acompanhar apenas a Produgao Fotografica dos pedidos. Den 


- 36 - 


ORIGINAL PAGE IS1 
OF POOR QUALITY 


tro da Produgao Fotografica, os estagios estavam ja bem definidos. Eji 
tretanto, ao introduzir no sistema a Produgao Eletronica e os produtos 
intermediaries, a sequencia de estados passou a ficar muito Tonga e re 
dundante entre bandas (MSS) ou subcenas (RBV) de uma mesma cena, que 
eonstituem um unico item de pedido. 

Para el Iminar a redundancia, reduzindo assim o tamanho 
dos registros, dividiram-se os estados em dois nTveis: 1) o estado do 
item como um todo, unico por registro; 2) os estados individual's das. 
bandas ou subcenas do item, que sao em numero maximo de 5. Estes estji 
dos individual's passam a ter significado apenas quando o item atingir 
o estagio da Produgao Fotografica do produto final. Sua aplicagao para 
produtos nao fotograficos, portanto (CCTs), e especial, como se vera 
adiante. 0 conjunto dos estados de item estao representados na Figura 
3.4. 



0 estado "Aguardando Info CQ" foi criado para resolver dju 
vidas sobre existencia ou adequagao de imagens que nao foram ainda ca 
dastradas, mas foram provavelmente produzidas em 1? (ou 2?) geragao.p^ 
ra as qua is o CQ e o unico detentor seguro da informagao. Os itens 
"Aguardando Info CQ" saem numa relagao ao final do Sumario de OPs emi_ 
tido diariamente; alem disso, "intrometem-se" na entrada por terminal 
de codigos para itens de outros pedidos que eventualmente recaiam so 
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bre a mesma imagem ou sobre a mesma passagem do satelite, de forma a ti 
rar partido das situagoes em que o CQ esta com a informagao a mao. 

Os estados "Aguardando OS de PrEl" e "Aguardando OS dePI" 
transitam para "Aguardando PrEl" e "Aguardando PI", respectivamente, ao 
receber o "ciente" do operador responsavel . 

0 estado "Cancelado" pode ser atingido a parti r de quaj[ 
quer dos outros; pode ate mesmo ser o estado inicial, se o usuario soH 
citou urn item inviavel. 


Apresenta-se na Figura 3.5, o conjunto de estados possT 
veis para imagens (bandas ou subcenas) individual’s, dentro de urn item 
que esta "Aguardando Produto Final". 



.Fig. 3.5 - Estados possTveis para imagens dentro de urn item 


, Qua! quer dos estados "Cancel ada" pode ser atingido a par^ 
tir de qualquer dos dois primeiros estados. 0 estado "Nao solicitada" e 
aqui necessario para indicar quais das imagens da cena nao foram requj^ 
sitadas. 

3.4.2 - OS PROCEDIMENTOS DOS SETORES 


Os procedimentos aqui descritos restringem-se a agao dos 
setores envoi vidos sobre as transigoes entre os estados introduzidos no 
paragrafo anterior. Apresentar-se-ao esses procedimentos na forma de 
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pseudo-codijo, na Figura 3.6 abaixo. Utilizar-se-a tipo diferente para 
dar destaque aos estados , bem como as abreviagoes abaixo para brevida^ 
de: 


Ag 

* Aguardando 

1?G 

= Filme de if Geragao. 

Pi 

= Produto In termedi ario. 

PF 

= Produto Final 

Color 

= Produto colorido 


Chama-se tambem a atengao para o fato de que os procedj[ 
mentos descritos sao os aplicados a cada item individualmente, os quais 
sao procedimentos humanos, apesar da forma "algorTtmica" de - aptesehta 
gao. 


Aten dim ei to ao rcceber Pedido 

Se (CCT) entao Ag OS Pr El 
senao 

Se (existe imagem no Cadastvo de Imogens Processadas ou na 
Listagem de Trabalho Prelirrdnar) entao 
Se (mo seme) Cancel ado 
8endo 

Se (color) entao 

Se (existe no Cadastvo Colovido) 

Se (seme) Ag PF 
senao Cancel ado 
eenao Ag OS PI 
senao Ag PF 
senao 

Se (existe no Cadastvo de Imogens Adquiridas) 
entao Ag OS Pr El * 

senao Cancel ado 

Fim. 

PrEl ao ocnfirmar OS de Pr El 

Se (CCT) entao Ag Pr tl 
senao 

. Se (existe OS equivalente anterior ■pendente) 
entao Ag Pr El 
senao 

Se (existe OS equivalente anterior processada) entao 
Se (estado anterior era "Ag Info CQ" 
ou "Ag Pr El") entao Ag Pr El 
senao Ag Info CQ 
senao Ag Pr El 

Fim. 

Fig. 3.6 - Procedimentos operacionais dos setores 

(continua) 


PrFbt ao confirmar OS de PI 


Se (existe OS equivalente anterior -pendente) entao Ag PI 
eendo 

Se (exiate OS equivalente anterior prooe88ada) entao 
Se (e8tado anterior era " Ag Info CQ" ou 
' 'Ag PI") entao Ag PI 
eendo 

Ag Info CQ 
senao Ag PI 
Fim. 

PrPot ao recebar OP 

Se (nao existe PI) ccnota na OP e informa imediatamente 
CQ, que forga o estado Ag OS PI. 

Fim. 

CQ ap5s oontrolar lfG, ao introduzir os oSdigos para os itens 
depeideites da passagan an questao 

Se (cena foi tentada) entao 

Se (cena existe no filme) entao 
Se (satis fas) entao 

Inform nQ da Cena para cada imgem 
Se Cpreoisa, PI) entao Ag OS PI 
senao Ag PF 
senao 

Se (recuperavel) entao Ag OS Pr El ; 

Inform motivo da rejeigao 
senao Cancel ado; inform motivo 
senao Cancel ado; informa motivo 
senao Ag Os Pr El 
Fim. 

CQ apos oontrolar PI, ao introduzir os codigos para.' os itais 
depeidaites dele 

Se (color) entao 

Se (satis faz) entao Ag PF ; in forma Rolo e Frame 
senao 

Se (recuperavel) entao 

In forma causa da rejeigao 
Caso (problema e no PI) Ag OS PI 
Caso ( problema e na 1?G) Ag OS Pr El 
senao Cancel ado; informa motivo 

senao 

Se (satisfaz) entao Ag PF 

senao Ag OS PI ; in forma causa da rejeigao. 

Fim. 


Fig. 3.6 - Continuagao 


(conti 
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CQ respond*, ido a lista de "Aguardando Info CQ" 

Caeo (e8tado anterior era ", Ag OS PrEl") entao 
Se (exiete imagem processada) entao 
Se (eatiefaz) entao 
Informa Run e Cena 
Se (jprecisa PI) entao XEQPI* 
eenao Ag PF 
eenao 

Se (recuperavel) Ag OS Pr El 
Benao Cancel ado; informa motivo 

eenao 

Se (foi tentada) entao Cancel ado; 

In forma motivo 
eenao 

Se (existe l^G a ser co'ntrolada) entao 

* _ Mantem estado 

sendo Ag OS Pr El 

Caeo (eatado anterior era "Ag OS PI") entao XEQPI * 
Pirn. 

* XEQPI: 

Se (existe imagem em PI) entao 
Se (satisfaz) Ag PF 

Se (color) in forma Rolo e Frame 
eenao 

Se (recuperavel) entao 

Caeo (problema e no PI) Ag OS PI 
Caso (problema e na l^G) Ag OS PrEL 
eenao Can cel a do; in forma motivo 

eenao 

Se (existe PI a ser controlado) Mantem estado 
eenao Ag OS PI . 

Fim. 

f 

CQ apos ccntrolar PF ( preenchimeito no Sumario de OPs) 

Preenche nQ de unidades de material gastas 

Se (satis faz) entao Ag Despacho 

eenao 

Se (recuperavel) entao 

Preenche causa da regeigao 
Caso (problema e no PF) Ag PF 
Caso (problema e no PI) Ag OS PI 
Caso (problema e na 1?G) Ag OS Pr El 
eenao Cancel ado; preenche motivo 
Pirn. 


Fig. 3.6 - Continuagao 

(continua) 




Despacho ao receber produtos aprovacbs 


Comulta por terminal os item f, Ag Deepaeho" e eon ■ 
fronta com Relagao de Itene do Pedido. 

Se (pedido esta oompleto) entao 

Pede Modelo de Rota de Entrega; Despachado 
eenao 

Se (urgente) entao 

Pede Modelo de Rota de Entrega ; Despachado 
semo 

Mantem Estado. 

Fim. 

Fig. 3.6 - Conclusao 


Com os procedi men tos acitr.a esta coberta toda a interagao 
dos operadores com o sistema no que se refere a mudanga de estados, ex 
ceto cancelamentos originados no Atendimento, que nao obedecem a nenhu 
ma logica interna. 0 unico setor nao envoi vido nessas transigoes de 
tado (ao menos diretamente) e o PCPM. • 

Um ultimo detalhe a mericionar e que, a parte os "estados" 
vistos ate agora, ha dois "flags" no arquivo de pedidos que podem 
bloquear qualquer "progresso" do pedido se ativados pelo Atendimento ou 
pelo PCPM: o de Suspenso (geralmente relacionado a atraso de pagameji 
tos) e o de Aguardando Informagao do Usuario. 

3.5 - A IMPLEMENTAQAO DO "SOFTWARE " 

Espera-se que o "software" desenvolvido para este s l s tje 
ma demonstre uma aplicagao bem sucedida das tecnicas de Engenharia de 
"Software". Acredita-se ter obedecido as regras mais consagradas pelos 
autores. A fase de definigao, especificagao e projeto. foi bem mais loji 
ga do que o tempo gasto na codificagao (Zelkowitz, 1978). Pretendeu-se 
minimi zar tambem as probabi', idades de erros nesta parte, atraves da 
aplicagao dos refinamentos sucessivos e programagao estruturada para o 
desenvol vimento (Liskov, 1972; Wirth, 1974; Yourdon, 1975); alem disso, 
procurou-se maximizar a inteligibilidade e modificabil idade dos progra^ 
mas vatraves da modularidade (Myers, 1975; Parnas, 1972) e auto-documeji 
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tagao (comentarios ao nTvel de linguagem fonte) (Myers, 1976; Yourdon, 
1975} ♦ Enfase foi dada a confiabilidade e simplicidade, em detriniento 
da otimizagao em rapidez (que realmente nao tern importancia fundamen 
tal neste sistema) e em tamanho do codigo (todo o esforgo neste sentj. 
do foi dirigido a minimizagao do tamanho dos avquivos de dados , que tern 
necessariamente de ser residentes), quando necessario (Myers, 1976; 
Wirth, 1974). A linguagem utilizada, conforme ja mencionado, foi o 
RATFOR, versao estruturada do FORTRAN, para o qual aquele funciona co 
mo pre-processador (isto e, o RATFOR processa codigo "RATFOR" produzin 
do codigo FORTRAN logicamente equivalente, embora bastante diferenteem 
aparencia). 


r 


I 

I 

I 


Conforme tambem se observou anteriormente, para evitar 
arquivos e codigo executavel demasiadamente grandes, bem como para di_ 
. minuir por urn fator de cinco a dez o tempo de "link" dos programas (a^ 
pecto extremamente significativo quando se es.ta desenvol vendo, nao 
foram usadas as rotinas de ISAM, conhecidas como RMS (Record Management 
System); do sistema operacional. Todo o acesso indexado a base de d£ 
dos foi, portanto, gerenciado explicitamente no "software" desenvol vi_ 
do, o que equivale a dizer que a criagao e a utilizagao de arquivos de 
Tndice foram desenvol vidas juntamente com o sistema. 

No que diz respeito a base de dados, nao se procurou im 
plementar os conceitos mais gerais*relativos ao assunto devido a nece£ 
sidade ja ressaltada de otimizagao de tamanho dos arquivos e inadeqaa 
gao das tecnicas usuais de banco de dados a essa situagao. V isto, alem 
disso, que todas as rotinas de acesso estavam ,sepdo desenvol vidas sem 
utilizar nenhuma ferramenta alem daquelas oferecidas pel a linguagem 
FORTRAN para acesso a arquivos, sacrificou-se general idade pel a simply 
ficagao da implementagao. Dessa forma, os modelos logico e fTsico da 
base de dados foram concentrados em rotinas especTf-'cas de acesso a ca 
da urn dos arquivos do sistema. 0 dicionario de dados se resumiu a modu 
los de linguagem fonte com a. definigao das variaveis de cada arquivo, 
modulos esses incluTdos (via declaragao INCLUDE do RATFOR) em cada r£ 
tina ou programa que fizesse uso de alguma dessas variaveis. 
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0 projeto do "Software" incluiu oitip "fungoes" para o ge 
renciamento complete do sistema automatizado de controle do pedidos. Se 
rao apresentadas a seguir, individualmente, ressaltando que "fungao" e 
aqui entendida como urn conjunto de um ou mais programas que se comple 
tarn para sua consecugao. 

As descrigoes a seguir apresentam apenas o papel de cada 
programa e seu esquema de Entrada/SaTda, mostrando com quais arquivos 
existe interagao, quais as eventuais saidas de impressora e se ha pajr 
ticipagao de operador. 

t 

Maior nTvel de detalhe sobre a logica de cada programa 
encontra-se no Apendice D, onde e apresentado o pseudo-codigo de cada 
programa. 

3.5.1 - 0 GE RENCIAMENTO DO ATENDIMENTO 

Esta fungao compreende as operagoes de Entrada, Altera_ 
goes e Consultas praticadas sobre os arquivos de Pedidos (Cabegalhos, 
I tens e Instrugoes Especiais). E composta por dois programas: o primei_ 
ro (PEDGAT) e o utilizado interativamente pelo operador para as eperja 
goes acima mencionadas; o segundo (PEDMRG) efetua a insergao de novos 
itens de pedido no arquivo de itens, apos uma sessao de Entrada ou AJ_ 
teragao, e recria os arquivos de Tndice res i dentes associados, em nume 
ro de dois. 0 unico arquivo de Tndice associado ao arquivo de Cabega^ 
Ihosemantido atualizado pela propria rotina de acesso, dentro do pro 
grama PEDGAT. 


Cada novo item que entra no sistema atualiza o comprome 
timento do material e o valor da quantidade a produzir, presentes rejs 
pectivamente no arquivo de material's e no arquivo de produtos, perteri 
centes ao subsi sterna de recursos. 

Na Figura 3.7 apresentam-se os esquemas de Entrada/SaTda 
dos programas PEDGAT e PEDMRG. 
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3.5,2 - 0 GERENCIAMENTO DAS ORDENS DE SERVIQO 

Esta fungao e responsavel pel a emissao de Ordens de Servj. 
56 para CCT, 1? Geragao e Produto Intermediario, e recebe as respecti_ 
vas confirmagoes de operador. E constituida por dois programas: 0 pn 
meiro (PEDGOS) e 0 emissor das Ordens de Servigo por impressora, e e 
ativado automaticamente, de hora em hora, varrendo 0 arquivo em busca 
de itens de pedido cujo estado seja "Aguardando OS' 1 ; 0 segundo (PEDOSC) e 
ativado pel os operadores de Produgao Eletronica ou de Produto Interme 
diario para confirmer 0 recebimento das respectivas Ordens de Servigo. 
0 recebimento da confirmagao promove 0 estado do item de pedido a "Aguar; 
dando Produgao Eletronica" ou "Aguardando Produto Intermediario", co£ 
forme apropriado, e isso evita que as OSs correspondentes voltem a ser 
emitidas, ate que urn novo item que envolve a mesma passagem do satelite 
aparega no sistema. Os esquemas de Entrada/SaTda de PEDGOS e PEDOSC es 
tao na Figura 3.8. 




Fig. 3.8 - Entrada/SaTda no Gerenciamento de Ordens de Servigo 
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3.5.3 “ A GERAgflO DAS QRDENS DE PRODUQAQ 

Esta fungao consiste em um unico programa (PEDGOP), que 
perfaz as seguintes operagoes: 

acumula, nos arquivos de Recursos (Produtos, Material's e Linhas 
de Produgao), as quantidades referentes a produgao da ultima 
jornada de trabalho nos respectivos acumul adores corresponded 
tes ao "perTodo 1 ' (espago de tempo entre duas corridas de 
"Garbage Collector", fungao descrita mais adiante) e remete a 
zero essas quantidades. 

- emite as Ordens de Produgao para cada produto, ate lotar a cap£ 
cidade especificada para a respectiva 1 inha de produgao na jor 
nada de trabalho ou esgotar os itens referentes aquele produto, 
atuallzando no arquivo de Produtos x Linhas x Materiais a carga 
programada para a jornada. 

- emite o Sumario de OPs que engloba todos os itens recem - emiti^ 
dos em Ordem de Produgao e, adicionalmente, os itens que contem 
imagens "em Acabamento". 

- emite uma relagao de Itens Aguardando Informagao do CQ. 

Was Ordens de Produgao emitidas cons tarn, para cada item, 
o numero de unidades gastas e a causa da ultima rejeigao, que serao 
ferentes de zero na eventual idade de alguma imagem ter sido ja produzj^ 
da para o item, em jornada anterior, e rejeitada pelo Controle de Qua 
1 idade (ver Segao 3.5.4). Dessa forma, o operador fotografico podera 
conscientemente evitar, caso possTvel, a ocorrencia do problema que 
ocasionou a ultima rejeigao. 

0 esquema de Entrada/SaTda de PEDGOP e apresentado na Fj^ 


gura 3.9. 
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'Fig. 3.9 - Entrada/Saida na Geragao de Ordens de Produgao 
3.5.4 - 0 CONTROLE DA PRODUCE 

Esta fungao recebe de operador, via terminal, os codigos 
de avaliagao nos di versos estagios de produgao de urn item de pedido. E 
composta por urn unico programa (PEDCON), que incorpora 4 opgoes de tra 
balho: o control e da Produgao Eletronica (que engloba CCTs e 1? Ger£ 
gao); o controle de Produto Intermediario (para negativo colorido de 
2? Geragao); o controle de Produto Final (em duas subopgoes: parcial oji 
de o operador especifica o item de pedido a ser control ado, e geral 
onde o programa apresenta para controle todos os itens constantes do 
sumario de OPs, na mesma sequencia); e a entrada de informagoes do Coji 
troltt de Qualidade. 

Sob esta fungao ocorre a maior parte das transigoes de 
estado dos itens de pedido e das imagens dentro de cada item, no sist£ 
ma automatizado. Sao aqui tambem control ados o gasto efetivo de mat£ 
rial e as rejeigoes ocorridas em cada 1 inha de produgao. 
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Devido ao volume potencialnente grande de entrada de da^ 
dos aqui envolvido, urn esforgo especial foi dirigido no sentido de sim 
plificar ao maximo essa entrada > embora mantendo todas as verificagoes 
de consistencia possTveis para evitar que erros de digitagao ou de codi_ 
ficagao possam prejudicar o bom atendimento dos pedidos. Dessa forma, os 
codigos relativos a avaliagao de urn item cons i stem, em media, em menos 
de 5 caracteres; entretanto, o programa exige’que o operador os tecle 
duae vezes , rejeitando-os se as duas entradas nao forem identicas. Por 
medida de seguranga adicional, para evitar que o operador tecle a segun 
da vez olhando para a tela, criando a tendencia de "copiar" a primes ra 
entrada, esta e apagada da tela pela solicitagao da confirmagao. 

Quando controlado o produto final, o programa contabiliza 
automaticamente o material gasto e eventuais rejeigoes ou cancel amentos, 
acumulando-os de acordo com a respectiva oausa (existem 16 causas def[ 
nidas) para posterior emissao de relatorio e armazenando essa causa pa 
ra indicagao na Ordem de Produgao, caso o item deva ser refeito. 

0 esquema de Entrada/SaTda de PEDCON esta na Figura 3.10. 



Fig. 3.10 - Entrada/SaTda no Controle da Produgao. 
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3.5.5 - 0 CONTROLE DO DESPACHO 


Esta fungao consta de urn unico programa (PEDESP), ativado 
pelo responsavel pelo setor de Despacho das imagens, ap5s estas serem 
produzidas e control adas. 

0 operador fornece o n9 do pedido ao qual pertencemas ima 
gens a despachareo programa examina os registros correspondentes , mo_s 
trando na tela a quantidade de iten'i prontos para despacho e o total de 
itens do pedido. Sao mostradas tambem eventuais instrugoes especiais ob» 
servagoes introduzidas durante a entrada do pedido. 0 operador tern eji 
tao a opgao de mandar ou nao emitir o Model o de Nota de Entrega com os 
itens terminados, os quais tern seu estado promovido a n terminado" , o me_s 
mo acontecendo com o pedido como urn todo, se todos os itens foram fecha 
dos. Essa condi gao, ou entao o n9 de itens restantes em aberto, sao in 
dicados no Modelo de Nota de Entrega emitido. Geralmente o operador so 
mandara emitir o modelo, quando urn pedido nao estiver completo, se sua 
data limite estiver vencida ou proxima do vencimento. 

0 diagrama de Entrada/Saida de PEDESP esta apresentado na 

Figura 3.11. 



Fig. 3.11 - Entrada/SaTda no Controle do Despacho 
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3.5.G - 0 GERENCIAME N TO DOS RECURSOS 

Esta fungao consiste em urn programa unico (PEDGRE), que 
compreende todas as atividades de criagao, alteragao e consul ta de re 
gistros dos quatro arquivos de recursos e parametros do si sterna (Pro 
dutos, Linhas de Produgao, Materiais e Produtos x Linhas x Material's). 

Agindo sobre esses arquivos, o operador do setor de Pr£ 
gramagao e Control e de Produgao e Materiais pode modi fi car o comport^ 
mento do sistema, acomodando-o a situagoes transitorias ou corrigindo 
seus parametros de desempenho. Isso da ao sistema a flexibilidade ne 
cessaria para funcionar satisfatoriamente dentro de uma gama bastante 
grande de condigoes (ver Segao 3.3). 

A opgao de Consul ta permite tambem saTda em impressora, 
o que possibilita estudo das situagoes sem "prender" os arquivos, que 
sao exigidos em exclusividade durante a operagao de PEDGRE. 

A Figura 3.12 apresenta o esquema de Entrada/Saida de 

PEDGRE. 



Fig. 3.12 - Entrada/SaTda no Gerenciamento dos Recursos 
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3. 5. 7 - A EMISSAO DE RELATOR'S 


ConstituTda por urn programa urrico (PEDREL), esta fungao 
e responsavel pel a emissao, a comando do operador, dos di versos tipos 
de relatorio que envolvem a produgao a atingir e a produgao conseguida 

(ou inviavel de conseguir). 

■* 

Atraves desta fungao o PCPM se mantem informado da sj[ 
tuagao das filas de produgao e de servigo, bem como obtem os dados r£ 
lativos as quantidades produzidas e rejeitadas e ao gasto de material 
de cada jornada de trabalho. Por sua vez, o Atendimento recebe reU 
goes que indicam os pedidos que estao entrando em situagao de atraso 
em relagao a data prometida e itens de pedido que devem ser substituT 
dos ou cancel ados por alguma razao que impossibil ita o atendimento. 

Alguns aspectos relativos a'seguranga e integridade do 

si sterna sao; 

- a emissao dos relatorios e diaria, ocorrendo apos ser efetuado 
o Control e da Produgao da jornada anterior (com PEDCON) e an^ 
tes de ativar a Geragao das Ordens de Produgao para a jornada 
a ser iniciada (com PEDGOP), dado que PEDGOP efetua a transfe 
rencia dos totais da ultima jornada para os acumul adores do pe 
riodo. 

- as listagens das filas de produgao e de servigo compreendem a 
totalidade dos itens ativos presentes no si sterna, e nao apenas 
aqueles programados para a jornada de trabalho. Dessa forma, no 
evento de falha de "hardware" ou de "software", podera ser tern 
porariamente reativado o sistema manual de OPs e OSs, com base 
nas ultimas listagens emitidas. 

0 diagrama de Entrada/SaTda de PEDREL e apresentado na 

Figura 3.13. 
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’ Fig. 3.13 - Entrada/SaTda na Emissao de Relatorios. 
3.5.8 -A "GARBAGE COLLECTION" 


Esta fungao e executada por um programa unico (PEDGAR), 
ativado ao final de cada perTodo de produgao convencionado como tal 
(em princTpio, mensalmente) , para perfazer as seguintes operagoes: 

- imprimir os totais de produgao, rejeigoes e gasto de material 
acumulados nos arquivos de recursos por PEDGOP, ao longo do pe 
riodo, e remeter a zero esses totais, preparando os arquivos pa^ 
ra o proximo perTodo; 

- criar novos arquivos de Pedidos (Cabegalho, Itens e Instrugoes 
Especiais), que conterao apenas os pedidos ainda nao terming 
dos, e reconstruir os 3 arquivos de Tndice associados; 
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- recalcular, com base nos pedidos ainda presentes e nos atuais pa 
rametros dos arquivos de recursos (como, por exemplo, taxas de 
rejeigao, gasto medio por unidade produzida, linhas de produgao 
ativas etc.)» o comprometimento de material e as quantidades aiji 
da a produzir, armazenando esses yalores nos campos apropriados 
daqueles arquivos. Dessa forma, esses valores, que foram sendo 
incrementados e decrementados de acordo com os parametros momeji 
taneos ao longo do perTodo, sao tornados coerentes com os parame^ 
tros em vigor no momento do fechamento, aplicados a iodos os 
itens presentes. 

Por medida de seguranga, esse programa nao fica residente 
em disco, para evitar que por ativagao acidental seja e’fetuado urn "fe 
chamento" antes do final do perTodo. 

0 esquema de Entrada/SaTda de .PEDGAR e apresentado na H 

gura 3.14. 
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Fig. 3.14 - Entrada/SaTda na "Garbage Collection" 
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3. 5 . 9 - AS ROTINAS E M0DULOS DE APOIO 

Nao teria sido possTvel desenvol ver este sistema no tern 
po disponivel, nao fosse ele modular e apoiado em rotinas e estruturas 
logicamente estanques que, uma vez desenvol vidas, permitiram uma imple 
mentagao bastante rapida, em numero reduzido de "bugs” e sua rapida lo 
calizagao. 0 projeto dessas rotinas e estruturas procurou seguir as 
ideias apresentadas por Myers (1975), quanto a funcionalidade e acoplja 
mento do modulos, e por Parnas (1972), em seu classico artigo sobre 
"ocultamento da informagao". 

* 

0 desenvol vimento e depuragao dessas rotinas e modulos fi_ 
zeram com que a produgao do "software" avangasse com lentidao nos pH 
meiros programas implementados, mas sua existencia acelerou sobremanej_ 
ra a codificagao e a depuragao dos programas restantes, mesmo quando 
houve necessidade de alteragoes ou introdugao de novos campos nos a£ 
quivos da base de dados, ao longo da implementagao. 

Merecem destaque as rotinas de sufixo "10“ , responsaveis 
pel a entrada/saTda, incluindo toda a logHa da compactagao e descompa£ 
tagao de campos correspondente ao model o fTsico da base de dados. A£ 
sim, tem-se, nessa linha: 

CABIO, ITMIO - Responsaveis pela E/S nos arquivos de Cabegalhos e 
Itens de pedido, respectivamente. Permitem acesso sequeji 
cial , acesso randomico pela chave primaria (por busca bin£ 
ria) ou acesso direto (ap'os recuperagao de ponteiro em ar 
quivo ou vetor de Tndice). Os modos de chamada comportam 
leitura, escrita e atualizagao. 

PROIO, LJNIO, MATIO, PLMIO - Responsaveis pela E/S dos arquivos de 
recursos. Os tres primeiros (Produtos, Linhas de Produgao e 
Material's) tern chave primaria densa, que e o n9 da entidade 
associada, e numero limitado de registros; por conseguinte 
suas rotinas de E/S permitem apenas acesso direto. Ja PLMIO, 
correspondente ao arquivo de Produtos x Linhas x Material's, 
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suporta os mesmos modos de acesso que CABIO e ITMIO. Todas el as 
admitem leitura, escrita e atualizagao. 

Todas as rotinas acima estao intimamente relacionadas ao 
"dicionario de dados" que, como foi mencionado no inTcio da Segao 3.5, 
resume-se a modulos de linguagem fonte com a definigao das variaveis 
> que correspondem aos campos de cada arquivo.As rotinas de E/S (e ape 

nas el as) fazem a conversao bidirecional entre os campos fTsicos prje 

sentes nos arquivos (que podem constar de 1 a 32 bits) e as variaveis 
do dicionario, que sao todas de tipos normal's do FORTRAN (reais, intej[ 
ras ou logicas). 

Num nTvel mais baixo, e na verdade implementadas ant£ 

riormente as rotinas de E/S, tem-se as rotinas de busca binaria e orde 

nagao interna por Quicksort (Knuth, 1972; Hoare, 1961), que, como ca 
racterTstica de interesse ja mencionada (Segao 3.2.2), foram implemeji 
tadas de forma veawosiva^ apesar de a linguagem FORTRAN nao prever e£ 
se tipo de utilizagao. Li.stagens dessas rotinas (BSCBIN e QWKSRT) es^ 
tao incluTdas no Apendice A, servindo tambem de exemplo ilustrativo da 
"linguagem" RATFOR. 

Com menor "personal idade" como rotina, com sua importan 
cia residindo mais em seu papel no sistema, atraves do qua! puderam ser 
mantidos apenas tres arquivos-Tndice resi dentes, tem-se a rotina DELIM, 
que delimita , em urn arquivo qualquer fisicamente ordenado, urn intern 
lo com urn mesmo valor para os "bytes" mais significativos da chave de 
ordenagao. 0 numero de "bytes" mais significativos a considerar e argiu 
mento da rotina. 

Ja ao nTvel de rotinas '’utilitarias", mas com signi'fica 
tiva ajuda ao desenvolvimento, encontram-se rotinas de aooio ao dialo 
go com o operador e rotinas de formatagao para informagOes de aparec^ 
mento frequente na tela ou em listagens ou relatorios. As rotinas de 
apoio ao dialogo incluem leitura e crTtica das informagoes tecladas, a 
colocagao de eventuais mensagens de erro e o retorno de urn codigo que 
denota se a entrada foi valida, invalida, nula ou indicou fim de dados. 


Cabe ao modulo que chamou a rotina tomar as decisoes Vpropriadas em cia 
da caso, o que mantem as rotinas uteis em diferentes contextos. 

3.5.10 - CONVENC0ES E PADRONIZACtfeS ADOTADAS 

Em adigao ao mencionado no inTcio da Segao 3.5, com rela_ 
gao as linhas-mestras seguidas ao longo da implementagao, julgou-se de 
interesse apresentar algumas diretrizes que se procurou respeitar. 

A primeira diz respeito a nomenolatura dos programas, ro 
tinas e modulos. 0 sistema operacional do PDP-11/34 utiliza nomes de 
arquivo da forma <nome> .<tipo>, onde <nome> e <tipo> sao "strings" com 
ate 9 e 3 caracteres, respectivamente. Para <tipo> ja existiaro algumas 
convengoes adotadas pelo "software" basico. Assim, "RAT" e otipode urn 
arquivo de linguagem fonte RATFOR, "DAT" e o tipo de urn arquivo de dia 
dos, "OBJ" e o tipo de urn arquivo que contem urn resultado de compiU 
gao etc. Para esse sistema, convencionou-se o tipo "DFV" (Definigao de 
Variaveis) para os modules fonte que contem partes do "dicionario de 
dados", e "DFP" (Definigao de Parametros) para modulos que contem parji 
metros de baixa taxa de modificagao (por exemplo, o numero de satelj^ 
tes, abreviaturas convencionadas para os estados de item etc). Para os 
modulos do tipo "DFV" o nome e o mesmo do arquivo correspondente. Assim, 
por exemplo, o modulo PEDITM.DFV contem o dicionario de dados correspoji 
dente ao arquivo PEDITM.DAT, de I tens de Pedido; PEDLIN.DFV correspoji 
de ao arquivo PEDLIN.DAT de Linhas de Produgao etc. 

Os programas principal's tern todos nomes com 6 letras,con 
forme deve ter sido observado nos paragrafos anteriores, e todos eles 
com o prefixo "PED", que denota urn programa pertencente ao sistema de 
Pedidos. Para as sub-rotinas utilizam-se sempre nomes com mais de 6 le_ 

tms\ se uma sub-rotina e de uso exclusivo de urn programa, as 6 primes 

* 

ras letras coincidem com o nome desse programa. Assim, por exemplo, a 
rotina PEDGATCBE e utilizada apenas pelo programa PEDGAT; a rotina 
PEDCONPFI e de uso exclusivo de PEDCON etc.'Ja rotinas chamadas por 
mais de urn programa tern liberdade na escolha do nome ja a parti r da 4? 
letra, como por exemplo PEDBSCBIN (busca binaria), PEDGETPAS (leitura 


de passagem via terminal), PEDATSTIT (atualizagao de estado de item) 
etc. Note-se que as 3 primeiras letras continuam sendo "PED". Em quaj^ 
quer caso o nome intemo da ro'cina (pelo qual el a e chamada em urn pro 
grama) e sempre o remneaoQnte apos esse prefixo. Assim, PEDBSCBIN , e 
chamada atraves de urn CALL BSCBIN; PEDCATCBE, atraves de um CALL 6ATCBE, 
e assim por diante. 

Essa sistematica de nomenclatura de programns, modulos e 
rotinas, embora nada tenha a ver com a logica interna, e bastante util 
para manter organizada a'biblioteca de "software" do sistema, auxiliaji 
do tambem em situagoes de alteragao ou depuragao. 

Uma outra convengao adotada, esta mais relationada a docjj 
mentagao, e a inclusao de urn aabegalho padrao no inTcio de cada sub-ro 
tina-ou programa fonte, com informagoes tais como: 

- numero de versao; 

* 

- data, hora e autor da ultima modificagao efetuada; 

- historico das mudangas de versao ocorridas, o qual indica a cor 
regao ou melhoramento introduzidos, bem como a data de cada ver 
sao. 

Em situagoes de depuragao, esse cabegalho, aliado ao "Pro 
ject Notebook" (Zelkowitz, 1978) mantido durante todo o desenrolar do 
projeto, que inclui problemas, solugoes adotadas, diagramas de bloco de 
rotinas etc., foi e sera, provavelmente ainda muitas- vezes, de grande 
ajuda. 


Ainda na mesma di regao foi enfatizada a utilizagao de co 
mentarios ao longo de toda a linguagem fonte, nao so para comandos como 
tambem para declaragoes de variaveis, quando estas eram utilizadas em 
algum contexto especial ou quando o .nome de 6 caracteres era insuficieji 
te para dizer do seu significado. ' 


n 
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Com reUgao aos relatorios e saTdas em impressora, de mo 
do geral todas empregam uma padroni zagao de cabegalhos, onde constam 
data, hora, nome e versao do programa emissor. 

No que diz respeito a codificagao em si, algumas diretM 
zes basicas foram relacionadas no Tnicio desta segao. Acrescenta-se 
aqui que o autor parti 1 ha da convicgao de Knuth (1974), Kernighan e 
PI auger (1974) e Wirth (1974) de que o 60 TO nao e uma "maldigao" a er, 
radicar a qualquer custo. Principalmente nos contextos de dialogo inte 
rativo com operador, que inclui cheques de consistencia e impossibilida^ 
de de "voltar atras", usam-se judiciosamente GO TOs por julgar que des. 
sa forma sacrifica-se o purismo a bem da clareza e 1 egibi 1 idade do co 
digo. Alternativas foram cogitadas, mas resultavam em estruturas cuja 
complexidade chegava a mascarar a logica, o que e considerado pelo au 
tor urn mal maior. 

3-6 “ EV0LUQA0 TlPICA DE UM ITEM DE PEDIDO NO NOVO SISTEMA 


A tTtulo ilustrativo, com vistas em uma melhor visao de 
con junto dos passos percorridos por urn item de pedido dentro do siste 
ma, apresenta-se na Tabela 1 a evolugao de urn item que chegou ao Ateji 

dimento solicitando uma imagem ainda nao processada. Dessa forma, urn 

* 

maior numero de transigoes de estado sao exemplificadas. 

Nao sao considerados nessa tabela eventos "complicado 
res" como rejeigoes, cancelamentos ou passagem por "Aguardando Inform^ 
gao do CQ" (Estado 1). No entando, sua ocorrencia implicaria basicamen 
te ciclos dentro da sequencia de eventos ilustrada ou uma saTda direta 
para o evento 16 (no caso de urn cancel amento). Neste ultimo caso, o 
Atendimento, eventualmente apos contato com o usuario, efetuaria uma 
substituigao do item cancel ado, que percorreria provavelmente a mesma 
sequencia ate ser finalmente aproyado e encaminhado ao usuario. 


EVOLUGffQ DE UM ITEM DE PEDIDO 
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Tabela 1 - Conclusao 
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CAPTTULO 4 


■ AVALIACftO DA IMPLEMENTACAO 

Apos a fase de testes gom'pedidos fictTcios, o sistema a£ 
tomatizado foi colocado em funcionamento por varias semanas, sob super 
Visao constante, nao tendo sido desativado o sistema manual anterior pji 
ra reduzir a quantidade de pedidos no sistema automatizado e facilitar 
assim o acompanhamento. 0 conceito de OSs e OPs em "hardcopy" simplify 
cou bastante essa atividade: alem de poderem elas ser conferidas pelo 
Atendimento nessa fase inicial, podem ser arquivadas, constituindo urn 
bom meio'para "rastrear" a historia de itens em sua evolugao dentro do 
sistema. Os relatorios de filas de produgao e filas de servigo sao tarn 
bem valiosos nesse sentido. 

Depois de algumas semanas, as OSs e OPs foram consider^ 
das confiaveis para seguir diretamente para a produgao, sem a confereji 
cia do Atendimento, que,' no entanto, confere a Relagao de Itens de Pedj_ 
do, que e emitida em duas vias, indo uma para o Despacho (esta confereji 
cia devera sar sempre feita para permitir detectar e corrigir eveji 
tuais erros na entrada do pedido). Aceitou-se, dessa forma, o risco de 
ser produzido erroneamente algum item e isso so ser detectado no Desqa 
cho, ao dar baixa em sua via da Relagao de Itens. Desde entao, o sistei 
ma demcmstrou urn excel ente desempenho, tanto no aspecto de confiabilida 
de quanto no de facilidade de manutengao, pelo reduzido numero de erros 
detectados e pela rapidez de sua local izagSo e corregao, A propria oco£ 
rencia de erros hurnnos foi sensivelmente reduzida, o que de uma certa 
forma era esperado, dada a eliminagao de varias operagoes manuais de 
preenchimento e transcrigao de informagoes. Tanto erros e respectivas s£ 
'iugoes quanto solicitagoes de modificagoes estao sendo anotadas em urn 
caderno .especial , que sera o "Log Book" de operagao e manutengao do m) 
vo sistema. 
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Com relagao aos eetores (Atendimento, PCPM, Control e de 
Qualidade, opera dores de produgao, Despacho), apos as- reagoes inj_ 
ciais normais que vaHaram da desconfianga ao entusiasmo urn pouco exa 
gerado, as opinioes foram sedimentando na parte otimista do espectro, 
impulsionadas principalmente pelas descobertas, frequentes nas primes 
ras semanas, de que parte de urn trabalho* anterior (geralmente uma pa£ 
„ te tediosa) ja fora feita pel a maquina ou nao precisaria mais ser fe£ 
ta. 


Atualmente- apenas pedidos que envoi vem algum tipo de pro 
cessamento especial, nao determinado pel os codigos de produto, sao in 
troduzidos no sistema manual. Parecem estar se confirmando, e esper^ 
mos sejam concretizadas, as espectativas langadas no inTcio deste proje 
to: 

- maior rapidez (menos formularios e control es manuais) de proces^ 
samento de pedidos; 

- redugao de erros por transcrigao manual; 

- melhor controle das rejeigoes que possibi 1 i ta corregao mais rap£ 
da das causas; 

- maior facilidade, simplicidade e confiabil idade no controle do 
gasto de material; 

- menor tempo gasto na elaboragao e datilografia de relatorios; 

- maior rapidez e precisao ao consul tar ou informar sobre o aji 
damento de pedidos, avisos automaticos sobre atrasos eventuais, 
gerenciamento automatico de instrugoes especiais etc, o que pr£ 
picia como resultado urn melhor servigo ao usuario de imagens 
LANDS AT. 


CAPITULO 5 


POSSlVEIS EXTENSDES AO SISTEMA 


Como f o i ressaltado no inTci^ do CapTtulo 3, uma extensao 
que definitivamente sera feita e a adaptsgo da parte que gerencia a 
produgao fotografica ao novo si sterna de processamento do INPE para os 
dados do sensor Thematic Mapper, do LANDSAT-4 e sucessores. Essa adapts 
gao consistira, em princTpio, no aumento do numero de bandas espectrais 
de 5 para 7, com as devidas alteragoes no dicionario de variaveis, e na 
substituigao das rotinas de Entrada/SaTda por outras que acessem os ar 
quivos de pedidos do sistema VAX. Como o RATFOR gera codigo FORTRAN "o£ 
todoxo", nao deve haver prcblemas no transporte de programas e rotinas 
do PDP-11 para o VAX. E possTvel ate que o proprio RATFOR possa correr 
no VAX, visto ser, ele proprio, codificado em FORTRAN. 

Com relagao as extensoes "opcionais", a mais desejavel do 
ponto de vista de eliminagao de operagoes manuais seria a integragao do 
sistema de pedidos com o sistema do Cadastro de Imagens, de forma que 
imagens solicitadas pudessem ser automaticamente selecionadas e incluT 
das nos registros de itens, ao serem introduzidos os pedidos. Entretanto, 
essa extensao e inviavel com a atual configuragao de "hardware" do PDP 
11/34. Seria possTvel se fossem ambos os sistemas, Pedidos e Imagens, 
transportados para o VAX, que dispoe de capacidade em disco suficiente 
para suportar os dois; no entanto, seria necessario urn esforgo razoaveJ_ 
mente grande para o transporte do sistema de Imagens, que foi sendo de 
senvolvido ao longo de varios anos por diferentes pessoas, sem preocu 
pagao de portabil idade ou modularidade. 

Outras extensoes desejaveis, dependentes tambem de maio 
res recursos de "hardware", seriam as integragoes como Cadastro de Usua 
rios e com o controle contabil, que permitiriam verificagoes automatiza 
das de debitos e creditos e a emissao das proprias faturas (nao apenas 
model os del as) para o usuario. 
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Dentro das extensoes viaveis mesmo com a configuragao 
atual, pode-se citar, como de implementagao bastante simples, a cri£ 

gao e manutengao de arquivos de dados estatTsticos para dar suporte 

r>j * 

aos relatorios anuais de produgao e distribuigao de imagens do deparfa 
men to. 

Uma extensao mais consideravel seria a implementagao de 
uma efetiva yrogramagao das atividades nos laboratories, com a utilize 
gao de teoria de filas, programagao linear etc., para otimizagao da pro 
dugao. Nesse caso, ter-se-ia de levar em consideragao varios fatores 
que, neste trabalho, foram deixados para ser gerenciados pelos proprios 
operadores ou entao foram tratados de forma estatTstica: 

- "throughputs" diferentes para diferentes estagios de uma mesma 
linha de produgao; 

- mais de uma linha de produgao funcionando simultaneamente para o 
mesmo produto; 

- equipamentos pertencendo a mais de uma linha de produgao; 

- operador unico para duas ou mais linhas; 

- materiais diferentes ocasionando variagoes de "throughputs" ou de 
taxa de rejeigao, ao longo da jornada, em uma linha de produgao; 

- uma mesma linha de produgao atendendo a mais de urn produto etc. 

Tendo em vista o volume de produgao bastante aquemdaca 
pacidade instalada dos laboratories do departamento, julgou-se que essa 
implementagao nao se .justified no momento. Isso porem, nao invalida a 
perspectiva de urn trabalho posterior nesse campo, mesmo com possibilida^ 
de de aplicagao em outras organizagoes afins. 


CAPTTULO 6 


CONSIDERAQOES FINAIS 

* 

Urn sistema automatizado de pedidos era urn sonho antigo den 

• ' 111 

tro do Departamento de Geragao de Imagens de Satelite, mesmo antes que 
ele existisse como tal. Para o autor deste trabalho, que participou das 
atividades relacionadas ao Sensoriamento Remoto por Satelite do INPE pra 
ticamente desde o inTcio do entao denominado projeto ERTS, e extremameji 
te gratificante ver" agora esse sonho realizado, embora talvez de maneira 
imperfeita e com muitas limitagoes, como resultado de seu esforgo pes^ 
soal e da colaboragao de colegas e superiores que deram seu apoio e in 
centivo a consecugao desse objetivo. 
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INTRODUCE 


Sao apresentados neste Apendice apenas tres modulos RATFOR, 
que ilustram de forma significativa aspectos ou tecnicas utilizadas no 
sistema. A tTtulo de curiosidade, e incluTda tambem a listagem do codi^ 
go FORTRAN gerado pelo pre-processador RATFOR para a rotina QWKSRT. 
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SUBROUTINE OWKSRT (KE Y , Si ZF . , PO! NT) 

f 

# 0KD6NACAO POR QUICKSORT RECURSIVO 

# 

* <IMAPEO> PtOQWKSRT.RAT SRJULflS 1 4 1 1 « JQSE' LUIZ 


A 


* Vt?2pA 29JULB3 CORK I (UNDO UM HUD »UE ACONTfcCEU PEt,A P K J M E X • 

* ' RA VEZ ARCS MAIS OE UH ANC) DE BUNS SERVJCQS, 

* JOSE' LuI'Z AGUIRRE 

# V05 20JUN&8 VERS AQ CON CHAVF. Df TAMANHQ V A R J A V E L, » ATE' 

# * BYTES, TAMRfcM PASSA A ORUfcNAR MATftiz (H 

# PONTE XROS* EDWARp 

* VtJl 23MARS2 VERSAQ PRE'LIMINAR PARA TESTE UE R£CUR$AQ 

# JOSE' LUIZ AGUIRRE 


iNPUCir INTEfit RCA-Z) 

DIMENSION POINT (1J A POINT EIROS 

REau^B KEYtl) 

REAl*B K,TENP 
LOBlCALM EQ,LT,KT 
CONHON/STACK/SP, STACK (50) 

DATA L IMIAP/9V A U I M I A R p/ OROfcNACAO FOR INS, SIMPLES 

JFNOTDEF (THEN] 

ENOIFDEF 
XFNOTDtF (PUSH) 


ENDlPDEF 


POP(NR); POP(Nl) 

IF( N2*N1 <s LIMIAR ) T H E N 

<f*S*S=SSeSCSSSS 3 SSSS=S 8 BSSs:ssssB 5 SS*SSSBS»S**SSSSSS*SSeBS 

FOR (J«N1*1I sJ < 3 N 2 f JsJ + U BEGIN A I N S E f< C A 0 SIMPLES 
U( LT (KEY (J»l) # K E Y ( J ) > S 1 2 E ) .OR, 

HQ (KEYCJ-i) #K£YCJ) t SUt) ) NEXT 
K » K h Y ( j ) ; lsj-1 

WHILE C OT (KEY (X )# Kf SIZE) .AND, I >* Nj) BEGIN 
TENP = KEY f 1 + l ) ? KfcY(I + U*KfcY(I)| KkYdjsTEMP 
TfcM»d=POINT(I#U t PUINTCItl)spOINT(I) l POINT (I ) "TEMPS 
IPIM 
END WHILE 
KEY(I+1)*K 
ENDFOR 
END THEN 

else begin 


J>N1+1? J=N2 AWUICKSDRT 

KsKE'Y(Ni) 




REPEAT BEGIN #PA*TICAO 

WHILE ( Ci T (KEY(J).K»SIZE)> J = J*i 

WHILE ( (Lt (KFY(I), K.# SIZE) .QK..EQ ( Kfc Y ( X ) t K , S I ZE 3 ) 

, AND, I < J ) I«I*i #VW2*A 


(continua) 
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X F ( J < i X ) BREAK 

TEMP«KEY (j) ; KEYfJ)*KfcY(l); KEY (I) sTEMP 
TkMP2aPOINT(J); POINT ( J ) 'POINT ( I) t PU I NT ( X )* TEMP* 
ENOKEPKAT 

TEHP*K£Yrj); KEY(J)*K6Y(Nl); KEY £N l ) *TEMP 
TfcMPgsPUlNT (J ) t PU | NT ( J) 'POINT C N l ) J POX NT (N 1 ) * TEMP 2 

NiMNW N 2 A s J * 1 APRIMfc IRA PARTICAU 

N10*J*W N2B *N2 A SECHIN Da particao 

JP( N2A-N1A > N2B-NHB) THEN AQUAE A MAJOR? 

PUSli(NJA) |PUSH(N8A)/PUSM(Nia) ? PUSH CN2B) J END THEN 
ELSE BEGIN 

PUSM(Nlh) | PUSH (N2B ) I PUSH (N 1 A) JPU8HCN2A> ? ENDElSE 

CAU ClWKSKT (KEY, SIZEi POINT) #ORDLNA A MfcNON 

CALL ClWKSfiTCKfeY, size, POINT) A DEPOJS A MAJOR 

USrisi 

ENDELSE 
RETURN 
’ END 



r 


min 


(continua) 
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* 


- A, 5 - 


0001 


$U6:PQUTlNfcQwKSNT (KEY, SIZE, POINT) 

0002 


IMPLICIT INTFGtR (A*»Z) 

0003 


OlMfcNSlUNPQlNTU) 

0004 


KEAL*8KfcY(l) 

0005 


RiAU6K#T&MP 

0006 


LOGICAL* ItO, LTf GT 

0007 


C0MH0N/5TACK/S.P# STACK (50) 

0006 


0ATAUMIAK/9/ 

0009 

, 

M2*6TACK (SP) 

0010 


9P*SP«1 

0011 


N1=6TACK(SP) 

021?. 


SP«5P-1 

0O13 


If (.WOT, (N2-N1 ,LK,U f -7AH) )iiOTU2OO0O 

0015 


CONTINUE 

0016 


JsNi+1 

0017 

20002 

IF ( .NOT , ( J.Lt.NZ) )«OTO20004 

0019 

« 

IF (.NOT. (LTCKfcY(J-n ,KkY(J) r SUtl .OB.EQCKfcYl 
# JM) f KfcYCO) f SI7.F.))7 6OTO200PS 

0021 


GOTO 8 000 3 

0022 

20005 

CONTINUE 

0023 


K * K L Y ( 0 ) 

0024 


lBj-1 

0025 


CONTINUE 

0026 

20007 

IF (.NOT, CGT(M:Y(l),K»SlZF),ANl>.I.GL # Nin ' 


S UOTO2B006 

0026 


TfcMP*KEYUM) 

0029 


KFYa + lJsKEYU) 

O03O 


KE Y ( 1 ) sTFMP 

0031 


TEMPasFQlNT (1*1) 

0032 


POINT (I ♦!') *POI NT ( I ) 

0033 


POINT (USTCMP2 

0034 


1*1-1 

0035 


GOT 0200 07 

0036 

20006 

continue 

0037 


KKY(1+1)*K 

003 6 

2OO03 

J'-JH 

0039 


G 0 T 020002 

0040 

H000« 

CONTINUE 

004 t 


GOTO2O0O1 

0042 

2O000 

CONTINUE ‘ ' 

0043 


I » N 1 + 1 

0044 


JsNH 

0045 


KsKEY(Ni) 

0046 


continue 

004 7 

20009 

CONTINUE 

0048 


CONTlNUfc 

0049 

20O12 

IF ( . NOT • ( GT < K K Y ( a ) f Kf 8 1 2E ) ) ) Gnrogau 1 3 

0051 


J * k l • 1 

0052 


GOTQ20O12 

005 3 

20013 

CONTINUE 

0054 


continue 

0055 

20014 

IF [ , N 0 T . ( (L T ( K t Y ( I ? » K # S 1 Z E ) , 0 H , E Q ( K E Y (1 ) , K , 


5 

> SHE)) .AND.I.LT.J) ?(.OTO20tfl5 

0057 


1*1*1 
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00SH 

00 b 9 

0063 

0063 

006^ 

006 b 

0066 

0067 

0069 

0069 

0070 

0071 
0075 
0073 
007^ 

0075 

0076 

0077 
0079 

0079 

0080 
0091 

0095 
0004 
009b 

0096 

0097 
0090 
0099 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 
0099 

0099 

0100 
0101 

0 1 05 

0103 

0104 
010 $ 

0106 • 
0107 


GGV)f>00i4 
50015 CONTINUE 

IP <,NOr,U f U,n}C 0 TQ 20016 
GOT 020011 
20016 CONTINUE 

TEMP«KLY CJ) 

kpy(J)=keyci) 

K£.Y<I)*TW 
* TE0P2sPLHMT(JJ 

point(J)«pc;ntci) 

POINT ( I ) * TEMP2 

20010 GOT 02 00 09 

20011 CONTINUt 


ORIGINAL MS f 
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T f: M P » k K V C J ) 

KEY ( J) sKEY (N il 

KfeY(NO*TENP 

TEMP2=P0INT(J) 

POINT (J) *PQINT(N1) 

POINT (Nl) sTEHP2 

N 1 A * N 1 
N 2 Asj-i 

N 1 9 * J + 1 
N 29 bN^ 

IP ( .NOT, (N2A-NlA t KT,N2B-Nia) )GOTO20018 

SPaSP+l 

STACK (SP) sNlA 

SP«$P+1 


STACK (SP) = N f >. A 
SP*PP+1 
STACK (SP) SN10 
S P s G P + 1 
STACK (SP) *N2& 

GOT 0200 19 
20019 CONTINUE 
SP«SP+1 
STACK (SP) b N 1 B 
SP«SP+1 
STACK (SP) *N2f) 

SP«oPM 
STACK (SP) sNj A 
SPsSP+l 
STACK (SP)*N2A 
20019 CONTINUE 

CALLOW K S k T (KEY# SIZE, POINT) 
CALLQWKSRTCKLY, SIZE, POINT) 
20001 CONTINUE 
RETURN 
END 


(conclusao) 
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SUBROUTINE BSC&XN(lUN,K, NHK, IK) AttUSCA binaria recursiva 

0 

n XMAPEU ** PhOBSCBIN.RAT 3UAG063 13*«0 JOSfc* UU t Z 

« 



$ VP2» A 

0 


0 

0 V02 

0 


0 

0 V01 
0 


20AGO33 


08HAI82 


24MAkfig 


CORKIGINPQ UH BUG HUE ATACOU APOS UM ANO Ofc 
BONS SERY1CD5 

JOSE * Lyiz AGUIRRE 

ACfcSSAMOO ARQuiVfJ EH DISCO E ACUMMDO TA- 
MANHO VAKIAVEL PE CHAVE (ATE* 8 H Y T F S ) 

JOSE* UJIZ AGUIRRE 

YERSAp PKfe'UIMlNAR PARA TESTE DE RECURS AC 

JOSE* Eg 1 4 AGUIRRE 


00000110 00# tU,0»0 00 0 000 H0.it000»iit0 0000000 00*0*00 0*0000$ 0 00 0 ¥0000 0 


IMPLICIT INTEGER(A-4) 

BYTE’KCNBKi 
INTEGER KEY(A) 

LOGICAL* 1 EG, GT » LT 
COMHQN/STACK/SP, STACK (5«) 

DATA LIWIAR/A/ ALIMlAR PARA BUSCA SEQUENTIAL 


0 

IFNOTPEF CTHfN) 
ENOIFUEF 
IFNOTOEF (PUSH) 
ENOlFPEF 


POP(N2) ? POP(IU) 

IF (NHK <s 8) NBE 0 NBK #NO. PE BYTES EFETIVO 

ELSE NBt « 8 

NW c CNBE+U/2 ANO * OE WORDS A LER 

READ (LUN^NI) (KE Y (1 ) # I “ J » NW) 

IF ( LT (K, KEY, NBE) ) THEN 

XK = -NW RETURN . ACHAVE ABAI.XD PO RANGE 

ENDIF 

READ ( t. U N f * N 2 ) (KEY(I) . XM»NW) 

IF ( GT ( K # KEY, NBE) ) THEN 

IKs**(N2+l); RETURN ACHAVE ACIMA DO RANGE 

END IF 

IF ( NR-Nl <« UMIAR )THEN 

■ FOP ( I K A N H IK<*N2f IK B IK + 1) BEGIN #BU$CA SE.QUE'NCIAL 
REAP (LON* * IK) (KEY(I) , I s i,NW) 

IF ( GT (KEY, K, NDfc) ) THEN 

IK**IKJ RETURN AMATCH APKOXIWAOO 

• END IF 

IP ( £Q (KEY# K, NBE) ) RETURN 
ENDFOK 

IK'B**(N2+i)l RETURN A AC IMA DO RANGE 

ENOTHfcN 
ELSE BEGIN 


(continua) 
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NM*tNUN? + |)/a ABUSCA BJNAK1A 

«EAP(IUN**NH) (KErtl), IMfNW) 

IF ( LT CK,Kf.Y,NHt) ) THEN 

pushcnuj push cnmw i j aesta # na metade inferior 

CALL BSCHlN(LUN,K,NaK, IK) 

RETURN 
END If* 

ELSE If ( GT (K f KtrrNBli) ) THEN 

pysMCNKf-m push(ns) *e$TA* na metade superior 

CALL B$CeiN(LUN|K,NBK,IK) 

RETURN 
END IP 

ELSE SEISIN * ACHOU CHAVE XGUALI 

FOR (TK = NH-U lK>»Nt J JK-IK-1) BEGIN 

REA0,(LUN' * IK) (KEY U).f lM#Nw) APPOCURA PARA TRA3 a 
IF C IT (KEY, K, NBC) ) BREAK * PRJMEIKA OCOK&ENCJA 
E N 0 F 0 R # 00 VALOR DA CHAVE 

IK * IK ♦ It 
RETURN 
ENDELSE 
ENOELSE 



(conclusao) 
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#1/0 Eh PEDITM.OAT 
$ . OU PEPITM.ADU 


SUQPOUT I ME XTNIOaUN# 1FUNC# XER) 

# 

*** ATENCAC) *** 

ESTA ROT INA £ 0 M Q 0 U (,. 0 «PEO ITM, DFV’> OEVEM 
SfcR SfcMPKE AITERADOS EM CONjUNTQi 


I MApF.D -- PUUTMIO.RAT 


HAG083 H5l5e JOSE * LUIZ 


# 

A 

# 

« 

# 

# 

# 

* 

# 

* 

it 

# 

# 

A 

# 

# 

A 

# 

A 

A 

# 

A 

# 

# 

A 

# 

A 

# 

A 

# 

A 

# 

A 

A 

A 

# 

# 

A 


V0S 


V0S 


MAGQ63 


IbJuLBS 


V04 


I5JUL83 


A 
* 

« 

« 

A 
A 

* A##*##****# #<VM##**A*A# A A*#*A4ttA#A#«A#<MAA##»*###9#A*«#A#* 

A 

IMTRCIDUZINOO A MvPORMACAQ "RITGN 11 (GA8T0 
NOMINAL POK OMDAOE DE PNOOUTO?, VET 0 R ITM 
AUMENTaOO OF 3 WORDS Cl SPARE) » FOR^aTO DO 
ARGUIVO NAO ALTERAOO, 

JOSE* LylZ AGUIRRE 

UN IF I C ANDO PARA Q ITEM A M QU ALIDADE pETBR- 
MINANTE OE RE'JEICAO/CANCELAMENTO'', UIVWOU 
UM HVTE no REGJ5TR0# MAS HaMTIVE 0 TAMANHO 
PAHA FJ CAR COM 1 WORD SPARE. VETOR “ITM« 
REOUZIPQ OE 38 PARA b'i WORDS, 

JOSE* LUIZ AGUIRRE 

AUMENTANUO 1 WORD NO TAMANHO 00 RECORD PARA 
PODER DAR UM BYTE INTEIRO PARA 0 NUMfcRO DE 
UNIDADES GASt.AS NO PROOUTO FINAL, VETOR 
"ITH» NAO APE T A {.) 0 ) ARENAS 0 RANGE DA VARln 
AVEL ITNUGF, COMO SUBPROPUTQf AS INF'OR« 
MACONS * IT CUR» 6. "ITNEV'i DEIXA'RAM OF SER 
MULTIPI.EXAOAS, FICANDO awbas disponiveis 
EM GUA(,QUER SITUACAO, 

JOSE * LUIZ AGUIRRE 

CORN Xfi INPD ATUALIZACAO DO REGISTRO HEADER 
EM DPCAO "ATUALIZAR", 

JOSE* LUIZ AGUIRRE 

COMPARANDO 0 NO, DA OCORRENCIA ARENAS AO 
•IGRAVAR” (PARA EVITAR OIJPLICACA0) E NAQ 
MAIS AO ”l,ER n » PARA PODfcHMCS ACfSSAR UM 
ITEM Mf'SMO S£M SAUER 0 NO, PA ULTIMA t)m 
CORRENCXA DO ME5M0, 

JOSE* LUIZ AGUIRRE 

implementanop a common/i tm/ 

JOSE* LUIZ AGUIRRE 

MyOANDO 0 LAYOUT DO AR&UIVO COM RELACAO *AS 
INFORMACOES PARA PR0DUT05 COLORIDOS, VETOR 
"1TM« NAD APE T AGO, 

JOSE * LUIZ AGUIRRE 

C 0 R R 1 0 1 N 0 0 BUG A p E T A N D 0 A F U N C A 0 ATUAUZAR 

JOSE * LUIZ AGUIRRE 

JOSE* LUIZ AGUIRRE 


V03-9 05JULE3 


V 0 3 * A 17JUN63 


V03' 


V02 


084.6085. 

22JUL«2 


V 0 1 « A 21JUL6P 


VlM 


0 3 J U L 8 *2 


implicit INTEGER ( A*Z) 

IPNOTOEF (THEM) 


(continua) 
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‘ ENPXFPEF 
IFNOTDEP(PUSH) 

END 1-FOEF 

DEFINE (0UMITM-) RMACETE p / LISTAR 0 ,DFy $EM INCLUIR 

include $y»pedxtm,ofv 

# PhDITM.DFV 14A(i063 15 IA0 JU <<<<<<<<<< 

IFNOTOEF (DUMITHJ 

INTEGER ITMC56) 

common /itm/ l TM 

LOGICAL* 1 LlT(il) 

REAL RITGN 

INTEGER ITCfcNCS),IT3TBI(5)#ITSTNI (55 
LOGICAL* l UTCCX(S) 

LOGICAL*! LHAC, L.ITSU3,LlTlNF,LlTf i RMrLITFPC,LlTCCC 

* 

EQUIVALENCE <jl 

UTmU), ITNPEO), *N0.D0 PEDIPO 

CITMta) f ITPAG) , # NO, DA FAGINA C i ^ X E» ) 

1 (ITMCi) t ITUNJ , #N0. UA UNMA (1*16) 

, ITOCOR) , AQCQRRENC I A PQ ITEM (Wi) 

(ITMC5) t ITNPRO) t (KCODIGO 00 PKOPUTO (860-333) 

(ITN(fc)i ITPLIM) f #DATA UNITE (JULIANA) 

(1TMC7)/ ITPSP) t DpHISPOSITIVO (1*15/ 0 * N/A) 

(ITMCfl)f ITSAT) f #N0. DO SAT' ELITE (1-151 0 a N/A) 

(ITH(9) . 1T0RH) 9 FNQ « DA ORB * REAL. (1-65535/ 0 s N/A) 

(lTM(10)f ITPTO)# *N0, 00 PONTO (MRS) (1*255/ 0 ■ TOOOS) 
(iTM(U)f XTRUNJ# 4 RUN (1-49/ Or NAQ: CONHfcCIDO) 

(iTM(iH)UlCEN(U ) f AMOS, QE GENA POR IMAGEM 
tV #U-399J 0» MAO CONHECI0O OQ N/A) 

(ITMOHf XTA88H), FA380C RGB 0* BANDAS P/ CULOR 
A £(444-777/ Da NAD APLICAVLU 

(ITM(IS) t ITROU » *N0„ DO POLO COLORIDO 

* ACir^Uf FJsCENA AVULSA OU N/A) 

UTM(19) , ITFHM) , AND; 00 FRAME P/ COLORIDO 

* P(l«327h7; 0*0E8CONH, OU N/A) 

(I7MC20) ? ITOLP) t ' fcQUALXOAQE PEDI0A (0-9) 

(ITM(21) • ITCNP) * £C08. OF. NUVENS PEDIPA (0-100) 

(XTM(22) f XTNC0P)' , #N0, PE CQPIAS PE0IPO (1-16) 

(ITM (23? t XTGSXG) , #G«AU OE SIUJLO (kJaNAQ CLASS? 

* • A IsOSTf 2*RF8ERV) 3 sCQNFID) 

(ITMC24) , XTRfc'Fg) , AREFERENCIA U5ADA NA SF:lECAO 

*. F('0»QL? l«5CXf 2®2A,G? 3’UCOL)' 

(ITM (35) # JTNMAT) , #N0, DO MATERIAL A USAR C 1-258? 0=N/A) 

(ITM(26) , ITSTA-G) , #£STA0O AGQR6 PD ITEM (i-«) 

(1'TMC?.7), ITSTAN) , A E $ T A 0 0 ANTERIOR DO ITEM (1-6) 

( 1 7 M £ 2 6 ) , 1 1 S T G 1 ( l ) ) , AES T ADO AGORA PAS 1MAGENS ( 1 -8 ) 

UTMC33) , ITSTMI Cl) ) i FEKTAPO ANTERIOR » « (1-0) 

(ITM(3») t ITSTGC) , . AE'STADO AGORA DA COMP, COLOR 

* # OU DA Cot (1-0) 

(ITMC39) , ITSTNC) , #E5TAD0 ANTERIOR (1-6) 

<X.TM(-40J f IT0U8U, # DATA DO ULTIMO ESTAPO (JUL,) 

UTM (41 ) , ITHUST) , FHORA DO ULTIMO ESTAPO (MINS) 

» 

(continua) 
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(IT H ( 4 £ ) , ITNHST ) f 
( IT H ( 4 3 ) , ITNKV) , 
(ITM<44), ITCUH)» 
(ITM(flb), I TNlJGf* ) t 

UTM(4tO, UNPRC), 

tlTM(«7) , ITCRO ) t 
CrrW(A6) rRXTUM r 
UTrt(b0)> ITSPAR), 

( I T M C 5 \ )|UT(1] ) 
EQUIVALENCE a 

(tiT(i) # uitai:j t 
(LITC2) rUTSUS? , 
(UTC3J ,LITlNt ) f 
UXT(«)rUTPRh) f 
(MT(S) t L I T F 0 C ) # 

C L I T Ct? 3 f LITCCI Cl)) . 
(UTUl ) ,UTCCC) 
ENDIFpEF 
it 


*N0,DE MUUANCAS DE £ST ,*(15-187) 

UNO, UE £ V f, N T 0 S NfcSTfc* FST.(tf-15) 
BCAUSA PA UUT, RUKIfcAO U-15J 0 cN/A) 
#N 0, Ofc UNIOS. GASTAfi NO PRODUTO 
ft FINAL (ft-EbS) 

» CIC.I A L 1 D » OEURfUNANTt OA ULTIMA- 

# KtUfvICAO/CANCtLAMfcNTO (0-7) 

*t:OB, Ofc- NUVF.NS REAL OBTlPA C 10-100) 
FGASTO NOMINAL FOR UNIOAUt (0-1S.W 
# ( SPARE) 

»VETOR UAS VARIAVEIS LQGICAS 

AALTC CONTRASTE 
ASUSPENSO 

AACHIANDANOO info OF USUARIO 
APKQliKAMAOO PARA "HQJc" 

»USAlHl KORMULARIQ Dfc IJfcsCULPAS 

# "C lENTfc OE CANCELANtNTG" FOR IlUhEM 
H'CILNTL UE CANC." F/ COMP COL DU tCT 


20JULB3 21S35 JUA <«<<<« 


INCLUDE PEOAKQ.OFP 

# PfcDARO.DFP 
REAL OARQ 
BYTE OARBB^l 

goui valence cqaro. oarud) 

STRING NQMARO " RED * * D A T « 

STRING NQM1DX "PfcD***«IX* H 
STRING NOMAOO " PL D * * * ADO " 

REAL JDAROCU) 

DIMENSION NRfcCS(U) 

DIMENSION NWRfcC(U) 

DIMENSION N UK (11) 

# 

N A R ft / 1 J. / 

IOAKU(l) f NRLCSC13,N«RLC(1) f NBK (1)/'CAH ' 
ID ARCUS) f NRtCSCf?) , NwrEC( 2) , NBK (2)/ f XTM f 
I 0 A R ft( 3 ) fNRfcCliO) , N w R t C ( 3 ) , N B K ( 3 ) / f 0 B S * 
IDARH (A) r NKECS(4) , NWPtC(4) , NBK ( A) /«PRQ * 
JDARCUb) , NRtiCSCS) , NWRfcL (B) , NBK (S) / '’MAT * 
IDAHO (6) , NRECS(S) ,NWRlC(t>) r NBK (S) /'LIN " 
lOAh'CU'n , NPtCS C 7 3 » N W R b 0 ( 7 ) | NBK (7) / 'PIN ' 

1 p A R 0 ( 6 ) , N I? E C 5 ( fi ) r N w R t C C b ) r N H K { S ) ./ ' C A B 1 * , 
1 () A R U ( 9 ) , NRfcCSt 4 ?) f NWftkC(R) , N H K (9) / ' I T M I ' , 


DATA 
DATA 
D A T a 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
it 

REAL. yfcPSAO 

C 0 M M 0 N / V E R S A 0 / V E R S A Q , I D T J U L , M I N S Q H 
CO M M Q N / S T A C K / S P f STACK (SO) 

INTEGER ITMC56) 

COMMON/ITM/ITM# lP08»RfcC 




H I DENT , DO AHNUIVO 

PNO. 

Dt 

RECORDS NO ARQUIVQ 

AND. 

UE 

WORDS NO RECORD 

A NO • 

PE 

BYTES MA CHAVt P R I M A R I A 

AND * 

DE 

ARQOIVOS 


10UI» Sr 
4001 ( 17, 

SSI t 1 SB, 


SSI , 
RSI , 
1001, 
1001, 
4001 # 


14, 

4, 

4, 

4 f 

5, 


LV 
3/ 
B / 
1 / 
1 / 
1/ 
3/ 
S/ 
7/ 


J,D ARCS (1(1) , NRtCSC 10) , NRKfcC (lp) , NBK ( ID) /' ITHrU , 400J , 4, fe / 
IDAROCM) ,NKECS(in ,NWRfe*C(H) ,NBK(1U/^ITMA # ,2S7, 17,3/ 


(conti nua) 
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BYTE jFUNC,LE 9 ,f,HAVAR,ATUAR f DUMPA«,UPROX 
BYTE RECB( 34 ) , 

INTEGER RfcCU 7 ) ,K 0 ( 2 ),REC 1 (<0 
INTEGER RfcCSAVU 7 ) 

■ REAL RALJX 
LOtilCALn UTMUt) 

DATA BITM,BIT 1 , MT?»BIT 3 , 0 ITA / 1 ,P, 4 , 6 ,IS / 

DATA BlT 5 ,BITfe,BtT 7 , 8 ITM>lT 9 / 32 , 128 , 256 , M ? / 

DATA B X T 1 tl # M J T i 1 , B IT 1 2 , BIT 1 3 , HI T H / 1 024 , 2046 , 409 b , a 1 92 , H 384 / 
DATA Bim / 01 0 » 0 0 0 t 
EQUIVALENCE (REC^REC) 

# # PARA 0 RECORD Wfe HEADER! 

EQUIVALENCE tRECl ( 2 ) , ITHPRL) , #NQ , DO PRQX, RECORD LIVRE 
(RfcCl ( 3 ) , ITHOU A ) , #DATA DA ULT, ALTERACAO 
(RECI ( 4 ) , X TMMUA) #HORA DA ULT. ALTERAC.AD 


# 

DATA LER « DRA V AR , ATLZ AR » DUMP AR , LEPRDX / # L * » f G f » * A * » f D f , / 

#8*»3ss = »»sssss*335assC35 = »S!;sr:sesB*!SS2cs«««!*ssosS5SSS**sas = ss 


IF (IFUNC *3 Lt'R ,QK„ IFUNC *» GRAVAR) THEN 

K0 ( 1 ) = ITMCU #N0, DO PEDlOO 

At|X ? PUTKLDtB, JTMC2)**lf 13*4) # P A G I N A 

AUX » PUTFLDCAUX. ITH(3)M A) #l*NHA 

K 0.(sn ■ a u x 

N 8 K 0 * NBK(2) AND. Ofc BYTES SIGNIFICATIVE NA CRAVE 

REAtHLUH'MJRECl 
ULTP08 = ITNPRL. - 1 
IF (ITMPftl, > £) THEN 

PUSH (2); PUSH (ULTPOS)f FARQUIVO nAO VAZIO* 

CALL ftSCBXN (LUN,KC'1,N8K2, IPOS) A PROCU«A C H A V t pEuiOA 


enothen 

£LSE ' FSENAO, APONTA 0 PRI- 

IPOS = * HE IRQ RECORD LlVRfc* 

end-then 


else begin 

IF (IFUNC ss pUMPAR) IPOS » ITM(i) #<ACESSO DIRETO) 

TF (IFUNC ** LtPROX) IPOS * IPOS * 1 # CPROX I HO Rtt) 

IF (IFUNC *a ATIZAFO CONTINUE F (M ANT£M jPQS) 

READ CLUN ** r 1 ) REC1 AVFRlFJ,CA SE REC E’STA' NO K'ANGE 
IF (IPOS < a ,0R f IPOS >3 1TMPRIJ JPOS « 0 *(XNVALIOO) 
ENDELSE 


it 


sc* 3 B=s=sc 3 =aa=a* 3 rs 3 *ssB*= 53 =s*»KB*ssBasrsBs»=*ssss,sPs 3 

IF ( IFUNCf bLER .OR, IFUNC*«DUMPAR »or. ifunc* s leprox;j t 
IF (IPOS <« 0 ) 

iER S *2 # R fc C Q R P INEXISTENTE 

. ELSE BEGIN 

READUUN' *IP 0 S)REC 


HfcN 


# DECOD IF ICA 'OS CAMPOS DO KcGlSTRO 

I TM ( U » RtC(l) #ND. DO PfcDIOO 

AUX * REC{£) 

ITNU) » GfcTPLDCAUX, 12, 4) * l PPAttINA ' 


S S 




(conti nua) 


- A. 13 - ORIGINAL l r ! 

OF POOR QUAUW. 


ITHC3) * GETFLDUUX,##*) ♦ 1 #LINHA* 

ITM(A) « UbTFLDCAUX, (>'?.) ♦ l #t)CyKRt.NCIA 

I TM (5) = NPRIIHP((AUX*ANU*<>3)<M) #C0DI&0 00 PRO DU T.0 
1TMU) s HHCCO *DAT A LlMITt 

AUX * f?EC(«) 

ITM(T) a GbTFUKAUX, 12.4) #OISPOSIT1VO * 

t t m trt ; » gHtfld(aux,b, 4 j asateutE 

AUX a IvSHFT (AUX# 8 ) *A(HXT8 JS-BJ 

AUXi = HEC»(lM)*AM0 f 255 *(BITS 7- V) 

ITM(9J 3 AUX . OK , AUXi XORBITA REAL 

1TMC10J S KfcC8(9) ,ANO, 555 PRONTO w«S 

I TH (11) ■ UcTFLD(RECC<>)r9f 7) PRON 

AUX « GETF.l,D(REC(2)#A#2) * ( ,, CKNTENAS M 00 COP 00 P.MtJU) 
T1PK00 a AUX * 1 #(Y1P0 00 PRPDUTGi laP-i'i, 5*C0L. 

GO TO (10,50,30# W,T1RK0D * 3*CCT# usbSPEt.) 



DO X *' 1 5 1 1 f> A'PRKT0»*E*8RANeo 

ITfi(l) a REC(1»5) .AMU, 511 PNG.G , OE CENA 
DO X * 1, 7 , 19 

JTK(I) s B • #N/A 

00 1*511,35 

1 TM Cl) s GETFI.D<Pfc-C(Wl)# 12#3) * 1 *bST A T U A L 1MAG 
DO 1*3 3,37 

IT.M(I) * Gt,TFM?(PECCl»?.8),9,3) ♦ 1 #bST ANT IMAG 
1TMC38) * 0; ITMCW s v AN/A 

oo 

|,iTM(I) s RECCI+1) < B #CIfcNTE CANC P/ ImAGEM 

UTMU1) s , pALBf * *N/A 

GO TO SB 

// . • , 

DO 1*12# I « I C 0 (, 0 RI D (1 

1THCI) a KeC(I*S) .AND, 511 #N0S, Ot CENA 

ITMC15) * Bf 1TM-Cie>5 * B an/A 

B&R = V 
no 1*7# 9 

6UR a BSR * 10 + CfcTFLD (KEC(I)#9#3) 

I T K ( 1 7 ) * 8GR #ASSQC, Ufc B A N D A fi 

I T M ( 1 8 ) = RtCCin .AND, 511 A NO . KDl,0 MASTER NfcG 

1TMC19) a RfeC(tB) #.N0., F'RAMfc COLOR 

DO X a 28,37 

.1 T N ( I ) a 0 FN/A 

ITNC38) = Gb'TFLP(RECCU)# 12»3) * .1 *bST AT UAL COMP 

I T M 1 3 V ) a G t* T P L 0 ( ft EC (11), 9, 3) * 1. #bST ANT COhP ' 

DO la 6, 10 

LlTN(I) * .FALSE:. #N/A 

LirN(U) a RPC CIO < 0 PCILNTE CAnCT: LAN}: NTO 

GO TO SB 


DO 1*12# 19 * C C T 

ITN(I) a t?i #N/A 

DO la 58,3 7 


{conti nua) 
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ORIGINAL PASS '£ 
OF POOR QUALITY 


40 


50 


# 

60 


ITMCI) 5 0 AN/A 

I T N ( 3 8 ) s CgTfUDC«fe*CClU» 12 » 3 ) ♦ I 
ITMC 39 ) 5 (*eTFLD(REcCnJ#‘»# 3 ) ♦ l 
DO I *6, IK 

LIT*U) * * F At, 5 E» 

UT«CU) * RECCU) < t) 

DO TO 50 


#tST ATU*L COT 
AtST ANT CCT 


AN/A 

ACIENTE CANCElAMENTO 


¥ ♦**«•• « 

00 IMS, 

25 i 1 8 P E C I 

A L 


* • f « 


ITM(I) 

= 0 

#N/A 




1 7 M ( 2 6 ) 

= SETF 10 CRECC 12 ), 12 , 3 ) 

♦ 1 

AfcST 

ATUAL ITEM 

I T M ( a n 

= GETELDCR£CCi 2 )#R, 3 ) 

* 1 

AEST 

ANT 

ITEM 

ou 1 * 28 , 

39 





ITH(I) 

* 0 

AN/A 




I T M ( 4 0 ) 

a REC ( 16 ) 


AOATA 

ULT 

ESTAOO 

ITM( 41 ), 

= (REC( 15 ) , AND, 255 ) * 

10 

AH 0 RA 

ULT 

tSTAOU 

I T M ( 4 2 ) 

* GETFLD(KECU 5 ), 8 , 7 ) 

4 NO, 

MUDANCAS 

ESTAOO 

DO 1 = 43 , 

50 





ITMCI) 
50 TO 60 

4 , 

* P 

AN/A 


MM 



ITMC20) 
ITM121) 
ITM(22) 
ITM123) 
I T M (24) 
I T 5 S J 
JTM(2b) 
I TM (273 
ITU ( 40 ) 
l T M ( 4 i ) 
ITM( 42 ) 
I T M ( 43 ) 
ITMC44) 
I T N ( 4 5 ) 


titTFL0(Rt*caa).4»4) #flDALiOADe pedida 

G E T F L. 0 ( fi E (J (1 5 ) , 0 , 4 ) * 1 0# C Q 8 , NUVfcNS P E D I D A 
6£TFLDC»fc*C(6) , 0*4)M A NO . DE CURIAS 

GETFUUHEC(5)#f»»?.) *G*AU DE 31&ILO 

G£TfLD(RfcC(6) ,4,2) 4REKERENCIA USADA 

ReCB(<J6) # AND, 255 «NO. MATERIAL a gsAR 

Gf;TFLQ (RE C U 2) , l ? , 3) +1 #EST ADO ATUAL I TEM 


DETKLD(REC(1S)«9|3)+1 

RF.CCHO 

(REC ( 1.5) . AND, 255) *10 
GETF’LD (RFC ( 1 5) , 8, 7) 
GETFUH.REC(13J»ia,4) 
t £TFLU(REc('i3)#4,4) 
PEC (14) ,ANU, 255 
GETFLD (NEC 1 1 4) ,12,3) 


♦ESTAOO ANTERIOR ITEM 
AUAT4 ULTIMO ESTAOO 
AH ORA ULTIMO ESTAOO 
ANO, MUDANCAS ESTAOO 
#NO * EVENTOS NO ESTAOO 
siCAUSA ML T , RtJEICAO 
uNO . UNJOS, GASTAS NO PE 
SQUALID, PET * 0E REJ/CAN 


ITM( 46 ) 

ITM(47) « GE T F L 0 ( R EC ( i 4 ) , B , A ) * 1 0 A C 0 B „ NUVENS REAL QHUPA 
HAUX » (Rt?CB(33),AN0«fc55) / 16, 4GAST0 NOMINAL FOR UNIDA 
Caul XFER CRAUX, ITM(46) ,4) # OE pRQPUZJCOA 

I T M (50) n 0 a (SPARE) 

LITMU) 5 (RfC(fc) & an#) •«& AALTO CONTRASTS 
UTH(?0 = C REC C 1 S3 « BIT15) AITEM SLlSPENSO 

LITMC3) * CRECHE) & BITS) ^ = 0 #nCM AG INFO USI/ARIO 

LIT M ( 4 ) « (REC(I5) & UJT1S) *»0 aPRQGRAMADO IV "HDJE'f 

UTM(5)'a (REC C 14) f, f»lTj5) #U?ADO FORM, DESCULPA 


CALL XF'£N (LITM, ITM(SI.) , 11) 

IER s 0 
END ELSE 
RETURN 
f'NOlF 


\ m m f • m « ^ « » « » « 


I 


(continua) 


ORIGINAL rY^.! ' 
OF. POOR QUAaaVV 


* 

# 


1 1 1 1 ■ : : i s i : < : : : c : : m c u m c e : : : i iiiiiii 

If (IFUNC =» Gk AVAR , OR , IFUNC »« ATL7.AR ) THEN 
Or (IFUNC «« b R A V A R ) THEN 

If (IPOS > 0) THEN WSE A CHOU 0 ITEM, 

AUX a Gfc , Tf , UD<RtC(8) f h»?) * 1 *VE St 0 NO, DA OCCJKH, 

If CAUX*»ITM(4) ) j[P05 ® -IOOS Wfc' DIF E RENTE E Nfc&A- 
ENDIF f T I V A IPOS NEbSfc 0*30, 

I F UPQS >« 0) THEN 

IfcR * -1 #. Rt CORD JA' t X I STLNTE 

RETURN? KNOIF 

else 

IFOS a p- J f p c s 

# . 


COUlflCA OS 'CAMPOS "INVARIAVE IS'* NO RtGISTRQ 


» * 


RECin 3 iTM(i) 

RECC2) = PWTFUO (O f XTnU)«l, Uf4) 

= PUTRID (RRC (8) * ITM(3)'" 1, S. a) 

3 PUTFLO (RfcCl2)>ITMC<0*lf*>ffO 
AUX s NPRPAK (IT«C5)) » 1 
KfcC (2 ) 3 PUTRID (RECtP) t AUX, 0,6) 

DO l 3 i,NWRfcC(2) 

RED (I) ? 0 wpRfc-ZEKA RU8TANTE DO RfcGlSTRQ 


RfcC (2) 
R£C(R) 


#N0 • DO PEP I DO 
# P A G I N A 
WLINHA 
A 0 C 0 R K E N C I A 

#ND , DO FPOOUTO 


T.IPKOD = GfcTFLD 
TXPHOU * TIPRDQ 

endthen 


( AUX , R » 2) • 

♦ 1 #TXPP D£ PROOUTO ClaPRBr 8aCQL f 
ff 3*CCT, ««ESPECIAO 


If (IPOS < W) THEN 
IER « -2 
RETURN? END IP 


WRECCRD INE XI STENT t 


COPXFICA OS CAMPOS RESTANTES NO RtSGISTRU 


RFC (3) 3 ITM(6) 

AUX s ISHP T (ITMC9) , -S) 

Agx * PUTPLDCAUX, ITM(7) f 12, a) 

AUX = PUTFLO C AUX r ITMC6J t 6» A) 
RF.C(fl) 3 Aljx 

RfcC (5) * T.TMU0) f A N D , 253 
AUX s ISHf'T(lTM(9) , AND, 253,63 
RfcC (5) 3 RfcC (5) .OR, AUX 
CALL Xf'fcR CJ T M ( 5 1) » l, I T M r 1 1 ) 

GO TO (110, 120, UO, H0) f TIPR(H) 
P 


P 0 A T A UMITfc 

AH ITS lb-0 ORB, RfcAfc 

Wp-ISPOSITIVO 

#SATfcLKTE 

#PONTO V/KS 

Aims 7-0 ORB, K I. A (, 

# V fc- T 0 R DE VARS. LC&IC4S 


110 DO 1 = 7,11 tll-.UlM 
AU.X = ITM(I'?5) 


AprffcT 0 - E -BRA N C 0 
It NO, Dfc CfcNA P/ IF.AUtW 


AUX = PUTFLO( AUX, XTM(X*El)-t, l?-,3) 
AUX « PUTPIDCAUX, ITMU+2f)-I ,Rf 3) 

IP (UTMCI-l)) AUX 3 AUX ,0R. BIT15 

KECCI) s AUX 

ENDOO 


WEST ATUAL 1 M A Ci 
WEST ANT I M A f» 
f»C 1 1 NTfc CANC, 


(continua) 
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'GO TO 150 

120 AUX ■ rTH(17)**'* ’ J'c^’u’S’k*! *D*0 # * * * * * * * * * * * 

00 1 * 9 , 7 , M BEGIN 

KkXCn * ITMCI + 5) #N0 * 06 CENA P/ A COP 

J * MOO (AUX, 10) AHANDA ASSOCIAOA 

HfcCUl = PUTFLOCRECCl), J,9,4) 

AUX « AUX / 10 


END 00 

RLCC10) * I T M Cl 9 ) 

AUX * I Tm c 1 6 ) 

AUX = PUTFI.DCAUX, lT(i(36)*l, 1?,3) 
AgX * PUTEE0(AUX,nM(39)-l,9, 5) 

if (LiTinii)) aux * aux, op, inns 
PEC cm * Agx 
GO TO 1 50 

t 


#N0 , 00 FRAME 

ANO, DO ROUO COLOR I DO 

# t; S T A o 0 ATUAL COMP, 

A fc' S T A 0 0 ANTERIOR COMP, 
ACItNTE CANCELAMENTO 


130 DO 1*7, 13 A C C T 

K£C(X) * 0 

AUX = PUTM.DC0, ITM(38)M, 13,3) 

AUX a P U T 1 L, 0 C A U X , I T M ( 3 9 ) *■ 1 j 9 , 3 ) 

IF (LIT M (11)) AUX * AUX, OK, BiTlS 
PEC cm = AUX 
GO TO 150 

* 

1<*0 00 1 = 7# 1 « f; 5 F 

PEC (I) = 0 
PEC (1. 7) * 0 

150 AUX = P UT PL 0 ( O • I T M ( P £> ) " t , i 2 # 3 ) 

AUX = PUTF LO ( AUX , ITM ( 27 ) * i , 9 , 3 ) 

'IF CLlTMfa) ) AUX a AUX ,0W, 6 X T 1 S 

if amt?)) aux * aux .or, rata 


*N/A 

AESTAOO ATUAL CCT 
« e S T A 0 o ANTERIOR cct 
ACIENTF CANCELAMENTO 


F. C I A L 

fn/a 

*N/A 


S'ESTAOO ATUAL DO ITEM 
# t' 5 T A D 0 ANTERIOR 
tf$USPENSO 

PA 6, INFO 00 USUAKJO 


' IF (TIPROO = = 4) THEN #3fc' TlPO 6* M b‘SPEC?A|,« 
pec (12) a AUX # NESTE A QU X fc* SU< 

GO TO ,160; ENDIF # E PULA TRECBQ SEGUINTE 


AUX = PUTFLQCAUX, ITM(P0) ,*i,4) 

AUX » PUTFLDCAUX,IT!1(21)X10,0,«) 

RFC (IP) = AIJX 

AUX a ISMFT CITMU 1) ,9) 

IF ( L I T M ( 1 ) ) AUX a AUX.OW.BlTa 
AUX * PUTE LU C AUX , 1 TM (2'3) , *i , 2 ) 

AUX a PUTFLD(AUX, 1 T M ( 2 9 ) # P # 2 ) 

AIJX « PUTF LD ( AUX , J TM ( Pi?) * ! , 0 , A ) 

PEC (6) a AUX 

AUX a 1SMFTCITMC25) , 6) 

AIJX * PUTFLO(AUX, ITM(ai) ,0,a) • 

AUX * PUTFL0(AUX,lTM(tt«)*9,«) 
REC(li) a AUX 

AUX * ITM(4»7) / 10 .AND, 15 


AOUAUOAOE PEDlDA 
#COB, NUVt-NS PEOIOA 

ARUN 

# ALTO CONTRASTS 
# t; R A u DE' S I G I L 0 
# R E F H R E N C I A US ADA 
UNO* DE COP I AS 

#N0, 00 MAT, COMPROM, 

fno , oe eventos no asr, 
9CAU8A DA ULT, KEJEICAO 

#CQB, REAL OBTIUA 


(conti nua) 


" A.l 7 - 

ORIGINAL, pms m 
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AVK = I3HFT (AUX,6) 

AgX • PUTFLD(AUX,XTM(4(0, U,a) #(UML. DET, REJ/CANC 

AljX s PUTf-LD (AUX, JTM(4b) , 0 , ft ) AND. IJNIQS GA3TAS PF 

IF CLITM(S)) AUX * AUX . OR , fcHTjS 0USAOO FORM, DESCglPA 
RFC ( 1 4 ) • AUX 

CALL XKR CITM(4«) ,KAUX#4) «GA8T0 NOMINAL POR UNI * 

RF.CU(i3) s RAUX * 16, * ,b * DADE PROOUZIOA 

KtCB(34) a 0 #(SPARfe3 

« 

1 60 AUX a ITM(AJ) / 10 *HORA OD ULT, E6TA00 

AUX a PUTFLOCAUX, 1TM(42) , 7) #NO. DE MUDANCAS Dfc F ST 

IF (UTX(fl)) AUX ■ AUX ,0K,flITJS 0PROGRAHAUO PARA «HOJE» 
RF.C(lb) « AUX 

RtCClb? * I T M C Ai 0 ) 0DATA 00 ULT. ESTAOO 

0 * - 

IF UFLJNC »= GRAVAR) THEN 
IF (IPOS <* ULTPOS) THEN 

FOR UsiPnSj KsULTPOS/ J«IM) BEGIN ^CNECa-PRA^A* 
READCLUN" n HLCSAV 
WRITE ( L U N r ' I ) REG 
CALL XFfcR (KEOSAYf RfcC, NWRF.C(2)) 

ENDFOR 

END1F 

I s ULTPOS t i 

HR1 FL (LUN f ' I ) RFC . 0GRAVA ULTIMO REGISTRQ 

ENDTHUN 
ELSE 

WRITECLUN" *IPOS)Rf;C 0ATUALIZA REGISTRO 

RtAD(L.UM"U«ECl 
ITMOUA = IDTJLJL 
I T M M U A * MINS0H 

IF (IFUNC =3 GRAVAR) I TMPRL = ITMPRU * 1 

WRITEUUN'MJKECI 0 A T U A L 1 2 A HEADER 

IE R 0 0 

RETURN 

ENOIF 

#*sess#ssss-0s*8ssss5SBSsss»**a»*88»«8se8»s**e88SSB*aet»SB.ass 

ELSE 

lfc’R a 1 WFUNCAO I N V A L 1 0 A 

0SSsa*S5*5S*B«*a»IIS»S»BS*8**KSs0eSI!SCS**S?l5S*cK«*««*Sess5*'*SIS* 

RETURN 

END 


(conclusao) 
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CONTEODQ DOS ARQUIVOS 
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6. Arquivo de Material's (PEDMAT.DFV) B.9 

7. Arquivo de Produtos x Linhas x Material's (PEDPLM.DFV) B.10 
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INTRODUCE 

t 

Uma razao adicional para a nao utilizagao do pacote ISAM 
do fabricante foi a compactagao das informagoes nos arquivos do siste 
ma proposto. Foi armazenada exclusivamente a representagao binaria das 
informagoes numericas. Alem disso foram usados compos de kit, dentro de 
cada "byte", para armazenamento otimizado de informagoes com valor mS 
ximo pequeno (por exemplo, apenas 3 bits para informagoes que variam de 
zero a 7). Para variaveis logicas foi utilizado apenas 1 bit. Gragas a 
esses procedimentos, o arquivo de itens de pedido, por exemplo, possui 
mais de 60 informagoes armazenadas em urn registro de apenas 34 "bytes". 
0 ISAM do fabricante, orientado para informagoes representadas em for 
ma de caracteres, perderia eficiencia e criaria problemas na implemein 
tagao. 


Para tornar transparente ao usuario o modelo fTsico dos 
dados, foram criadas rotinas de entrada/saTda que efetuam toda a com 
pactagao/descompactagao necessaria, de forma que apenas variaveis "co 
muns" de FORTRAN (inteiras, reais ou logicas) sao processadas externa 
mente a essa interface (ver Segao 3.5.9). 

Os modulos aqui apresentados constituem a implementagao do 
"dicionario de dados" do sistema. Para cada arquivo foi definido um ve 
tor de informagoes cujos elementos receberam nomes mnemonicos de variS 
veis atraves de declaragoes EQUIVALENCE. Cada programa ou rotina que 
referencia uma variavel do dicionario inclui esse vetor em seu codigo 
RA1F0R atraves do comando INCLUDE. Dessa fo a, ao introduzir alguma 
modificagao no dicionario de dados, basta recompilar os programas afe^ 
tados pel a modificagao. 


- B.3 - 


ORIGINAL Pf$3. ISJ 
OF POOR QUALITY 


ft PfcOCAB.DFY 

I r N 0 T 0 1 £ P‘ (OUMCAH) 
INTEGER C AB (20) 
COMHON/CAii/CAB 
LOGICAL*! Lku( 13) 
LOGICAL*! LKCANCf LK3US0 
LKMUPf LKXN.ST t L^TERM, 
eouivAUNcu a. 


etJULBS i (3 JL a <<<<<<'<< 


(CAttCU 

(CAH(d) 

(r.AB(i) 

(CA8(«) 

CC A BCM 

(CArf(b) 

(cahct j 

(C*d (ft) 
(CAB (9) 
(CAd(ld) 
(CAMll) 
(CAfc(U') 
(CA6U3) 
CCAB (14) 


EQUIVALENCE 


(LK&CU 
(L ^» ( 23 
(LKd( 3 ) 
(LW«> 

(LKb(b) 

CLKti(b) 

(LKBtn 

CLKW(ft) 

(LKdC ‘0 

(LKBdw) 

(LKdUl) 

(LKb(!2) 

(LKB(li) 

ENplFDEF 

A 


MJNPfcD) 
KBNUb) , 
KdSUBN) 
KliNATU) 
KBTIPU) 
KBLINl.) 
KHMQfcO) 
KfJOCHG) 
K B D P R M ) 
KtiOUST) 
K BN ITS) 
KBNIAC) 
KBNDRP) 
LK8C1) ) 


LKCANC) 
LKSUSO) 
L.K$usn 
LKP1NC) 
LKMMftG) 
L.KNPAG) 
LKPGOU) 
LKMljO ) f 
LKINST) 
LKTEKM) 
LKALT ) , 
LKITCW) 
UtTTM) 


,LK8USI,LKPXNC f LKNHRfJ, LKNPAG ,tKPGQU, 
LMLT,LKITCN,LKITTm 

AMD. DO PE DIDO (1-327*7) 
ano. do usuario ti-zejbfi & ■ dgu 
ftSUB-NO. DO USUAPIO U*31J 8*PA»TIC f ) 
*N0. DO ATUS (1-S) 

AT IPO DO USUAPXO (t'-F) 

ftLXNKUA ( 1 s PQH T RsCAST 3»INUL 4*FKAN) 

ftMOfcOA (1»CR$/ «*»U5S) 

A 0 A T A DA CMfrGAOA (JULIANA) 

♦DATA PKQHfcTIDA (JULIANA) 

ft 0 A T A DO ULTIMO ESTADO (JUL.) 

ftNO, DE I TENS DO PfcfiXDO (rt-Sb'i) 

ftNO. Of. 1TENS A 1 END I DOS ♦ C ANCfc LAuO’i 

ftNO. DP DESPACHOS JA* FE1T0S (O-lb) 

ftVETOW DAS VARIAVEIS LOG I CAS 

ftPFOIDO CANCEL ADO 
ftSUSPENSO PpR DLBITO 
♦SUSPfcNSO por Yalta OE INF CRN AC AO 
IPtWItDO INCOMPL&TO (SfeMOO PNTRADO) 
ftJETtNS AINDA NA0 MKRGIOOS EM pfeDITM 
ft'USUAK 1 0 NAO PAUARA' ESTE PfcDIDO 
ftUSUAHIO JA' PAGOU E.STE PEDIGO 
ftUSUAKXO HUDOg life EWOKRECO 
ftLUSTEM XNSTftUCOfcS ESPECIAI& 
ftPEDIDO TF.KMINAOO 
ft EX l STEM ITEMS ALTERADOS 
ftfeXISTEH I TENS CANCEL ADDS 
ftEXI STEM I TENS T fc KM I NAD 08 


ORIGINAL RAGS lO 
OF POOR QUALITY 


0 ’ Pb'fJlTM.DFV H AGO03 1SU0 <JLA <<<*«<<*< 

IFNOTQEF (DUHtTH) 

INTEGER I T M C 3 F» ) 

COMMON/ I TM/ I TM 
LOGICAL*! LJT(ll) 

REAL HirON 

INTEGER ITCfcNtiOf ITSTGX (S) , IT3TNJ (S) 

LOGICAL.*! LITCCI(S) 

LOGICAL*! LmG#lIT$U 5 >UUNF,LlTPRH f UTFDC # UT«C 
0 


EQUIVALENCE j. 

(ITM(I ) , J.TNPKD) f 
(iTMCShlTPAG), 
(ITM(3) f ITLlN) f 
fiTM( / O^ITOCOR> / 
(ITM(S) . ITNPRO ) , 
UTn<fr),lTPUM), 
CITM(T) #1 rDSPJf 
( iTMCfl) , ITSATJ • 
(ITM(V),ITOkB)r 
CITM C 1 Id) , ITPTO) # 
(ITM(! 1), ITRUN), 

i JTCf;N(!)J f 

(ITMU7),lTASStf)f 

C*T M U#MTfcOL)# 

tlTMU^/ITFKM), 

tlTM(R6J) t IT&I-P) * 
UTM(2J) » ITCNPJ t 
(ITMCR2 ) t ITMCOP) , 

UTM(23MTGSl&) * 

?ITM(2«MTREPU)# 

t.ITMCSS) f ITNMAT) t 
CiTM(2b) f ITSTAC)# 
UTM(2l) f ITSTANJ, 
(XTMC2IO / ITSTGIf I) ) 
UTM(3i},lTSTNI(U) 
(ITMC36) f ITSTGC) f 

UTM (.39) # IT5T m O t 
(nh(flB) , ITDUST) , 
ClTM(Al) ♦ ITHUST) f 
(ITM (4«!) f ITNMST) t 
' ( I TM ( 43 ) t ITNIIV) t 
(ITMC44), ITCUR) , 
CJ.TM(4S)fI TN-UGF) * 

tlTM(Ab) f ITQOROf 


PNQ.00 PKOJDO 

AND, UA PAOINA (1-16) 

4NO * DA l INHA (1*16) 

AOCORRENCIA 00 ITEM (1-4) 

• CDOXGO 00 PR DON TO SS) 

*PATA LJMITE (JULIAflA? 

#Dl$POSniVO 0 s N/A) 

#N0 ■ DO SATEim O-lb; 0 s N/A) 

*N 0. DA ORB. REAL (l-65b3*oJ 0 * N/A) 
*N0, 00 PONTO (wkS) ( 1 -SbS I 0 • TGDOS) 

♦ RUN (1-44; 0» NAD CONhfcCinO) 

FNOS, OE CKNA.POR IMAGgM 

$» N“0 CONHECIDO DU N/A) 
MS5QG f?6b OF; BAND AS P/ CULOK , 
*(4*14-770 #» naq apLICaVF'U 
#N0, DO HOLD COLOPIDO 
#U-3Uf n » C E N A AVULSA DU N/A) 

ANO i DO FRAME P/ COL0KIUO 
#0-32767! 0*OfcSCON.H • DM N/A) 
A8UAUDADF PEOIOA (fl-9? 

#COB , Ofc NUVELS PEOIPA (0-100) 

#N0 » Of: COPXAS PEPK>0 (1-16) 

A6RAU Dfc 3IGIL0 «Jb«AH CLASS; 

» i*ost; esRF.sERv; s-confid) 

# K £ F E R £ N 0 1 A US ADA F4 A 8FUG40 

a(0*ql; jssci; 2«2A,&j 3ec, col) 

AND. oo MATERIAL A uSAH 0-250/ PJ * N / A ) 
#£8TA00 AGORA DO ITEM (.1-6) 

4ESTA00 ANTERIOR 00 ITEM 0-8) 

PEST ADD AGORA DAS iMMlifcNS (1 -8) 

AESTaOO ANTERIOR "I* (1-8) 

PESTAPO AGORA DA COMP. COLOR 
it QU DA CC T U,<«6) 

AiSTADO anterior U-6) 

PO.ATA DO ULTIMO FSTAPD (JUL,) 

#HQRA 00 ULTIMO ESTaOO (MINS) 

#NO,OE MUDANCAS Of, E5T, (0-127): 

AND, HE EVENT0S NfcSJfc feST,(0«lb) 
#CAUSA OA ULT. KEJElCAC) (1-lS; F) a N / A ) 
PNO, DE UNIDS, GA8TAS NO PP0DUT0 
ft FINAL (0-P&5) 

POUALiO. DETERMINantE DA ULTIMA 
» REJEICAO/CANCF-LAMENTD (0*7) 


(continua) 
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(tTMCftO . ITCHO) , 
»klTGNj r 

( I TH Ci5>J ) t IT8P AW) ♦ 
UTH(51> »LIT( J)) 
EQUIVALENCE ^ 
<LIT(U»UTAC), 

(LIT ( 2 ) (. M rnuS) t 
(UT(i), UT INF), 
(UTC*0,UTP«H)* 
(LlHSJi.UTF'DC)# 
(LU(t»-)».LITCCI(U)» 
CLTTCU ) aLITXCC) 
ENDJf Oilr 


*C0ti. [>£ NUVLNS HEAL. UfiTIUA 

*(» A 5 TO NOMINAL HUH UMD*DE (tf-lS,^) 

•(SPAKE) 

•VLTOR DA$ VARIAVU3 I.QUICAS 

•ALTO CONTRASTS 
ASljSP^NSn 

AAOLANOANOO info OF USUAHIO 

F P f? 0 <3 W A M A I) 0 para 

(HUSAD-0 T ORMUL AW I U OK ti£SCULPA8 

#'*01 ENTE ()t CANCEj.ANbNTO" POP iMARErt 

• •’CIENTE Ob CANL," p/ CUPP CCL (10 CCT 
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# . PEDOliS.DFV 30JWL** ins* JlA «««<*< 

If NOT'D EP (DUMOBS) 

BYTE DBS (25b ) f 0BINSTC25«) 
comhon/obs/ubs 
INTEGER obnpeo 
equivalence a 

(0ti3(l) f OBN0fcO) , *N0. 00 PEOIDO 

( DBS ( i } f OB J. N$T ( 1 ) ) * STRING OAt* INSTRUCTS tfrPECJAlS 

ENOIPOEK • 
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* # PEl.»R0, DPV P.SJUL63 12 1 Of) JLA «<<«<< 

IFNOTOBF CDUMPRO) 

IN-TEGER PRO ( 47 ) 

COMMON /F’RO/PRQ 
BYTE NOMPRQCfe) 

BYTE NOME XT (14) 

INTEGER PQTH0CJE3 iPOTRP(lfe) 

INTEGER PNDOUA»PR0MUA f PQTAPW 

EQUIVALENCE (PRO( 1 ) j NPROO) # AMO, DO PRODUTD (000*333) 

(PRO (<2 ) * NMATUT ) t AMO, UO MATERIAL A UTIUZAR 

CPRQ(3),N0hPRP(l})r#N0ttE 4BREV , 00 PKODlJTO 
(PRO (6) t LPEL ) r #L.P, 00 PRQC, tLeTKONlCO 

(PR0(7-),LPIP) i * L » P * DE P,x. PRINCIPAL 

CPRO(ft),LPIA), AL*P, DE P,X, ALTfcRNATlVA 

(PRD(9)fLPKP)f #L.P, DE P.F, PRINCIPAL 

(PRO ( IS) » LPF A ) t A L • P , DE P.F, ALTERN4 T I V a 

# (PRO(n),PC?TPOCn)f #«iTDS RE,!E 3 TADAS «ONTEH« 

(PR0(27)fPl?TRPU))» AQTDS REJEI/TADas NO PERIODO 

(PRO (43) t POT ApR) f *0T0 AINDA A PRO0UZIR 

(PRO ( 44 ) , PtfTPQ) t AOTO PR0MUZ1DA "ONTEM" 

(PRO ( 45 ? * PQTPP ) t *GT0 PRODUZIDA NO PERIOOO 

(PRO(4b)#PROOUA), AOATa DE ULTIMA ALTERACad 

(PR0(47).PR0MUA) #hoh a oa ULTIMA ALTERACAO 

ENOIPDEP 

# 
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t , PCDLIN.DFV 30JUL#* 18100 JLA <<«<<«« 

IFNOTOEF(DUMUN) 

INTEGER LIN (ft) 

COMMON/LIN/LIM 

INTEGER EOEXP,£«ENT# EGPRQ# EWC# EOSA I 


EQUlVALtNCEUlMI ) » NUN ) , 

aiN(iJ) jLInTIP) f 
<UNC3'?#LJKSST), 

* CLINCH), UNCIlJ)# 

CL IN (5) f EGEnT) # 
(LIN(S) » EGEXP) # 
CLINCH) itvGPRo)# 
CfINC7)#fcGSAX ) t 
(LIN (7) # EQSEC) # 
aiN(8)#LINCFH.) 
INTEGER TIP05C3) 

DATA TIROS /"PE*# *Pi*,'PF<V 
DATA NTTP/3/ 

INTf^^ER KSTHNC4) 

OATA ESTLIN/'OK', 'RT', 'PD'# 'NL 
OATA NE$TL/4/ 

ENDI^OEK 

# 


FNO.OA L.P. 

#T IPO 0 A L.P. (0-3) 

Ffc'STA DO DA UfR. CH-3) 

*CAKtiA MAX NA JURNaDA (UB e lG f ) 
#E'«PTO, BE ENTfcAtU (P/ PR EL) 
AEQPTC, EXPOSITOR CPX PR POT) 
#£OPTQ. DE pKOCbSSAMENTO 
FtDPTO. DE SAIDA tP/ PR U) 
#EQPTO. SECaDOR (P/ PR POT) 
ACARGA PRODR P/HOsfECLStU10MlN) 

#PR EL# PH I NT# PR FINAL 


/^oK#restrita#parada#nao CDNh, 
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• PEOMAT,DKV 30JUL62 16100 JLA «<«<«<< 

xfnotuek coummat) 

INTEGER MAT (22) 

common/mat/mat 

ByTt N0MMATC6) 

HEAL MOTCCJM^MfiTHPf MOTTHf MQTLHf MCjTpO^ MRTTOf MttTLO» MUTFHV 
REAL Math ( ft) 


EQUIVALENCE j, 

CM A T c 1 > , NMAT) 
(MAT t'd) 


MATUN) f 

C M A T ( 3) ? MOMMA TCI)).# 

(MAT (b) r MU T COM ) , 

(HAT (#■)■# MQTPf*)/ 
(WATUU>»Hi 3 fTP).; 

(MAT ( 1 2) r MUTLP ) t 
(MAT ( l ") , MUTPO) , 

(MAT(1*»J t MUTTO ) , 

(MATU«i) » M«TLO). 

(MAT (80) r MUTFHV) , 

(MAT (22.) i MATOUA ) 

equivalence (MATRCU »mat(*»)) 
HEAL UN1U14) 


#NO • DO MATERIAL (1-25*) 

ACQD, OA UNI Ot DE MATERIAL 
# NO ME ABREV, DO MATERIAL 
•DTD CQMPRCMET1UA (rEaL*6) 

FRpOU^lOA NO PEKIODO (0,-38767,.) 
TESTES NO FERIOOn " 

LOR/THLH NO PER 1.0 DO '« 

PftOOU'dDA "ONTEM" 10,-1023.) 
TESTES »'ONTfc.M« " 

LDR/THLR H ONTEM" »I 

PPEVISTA AINOA a tiASTAR (REAL*") 
DA ULTIMA ALTERACAO (JULUM) 


#QTD 

#0T0 

i&TO 

#RTO 

#UTD 

WO 

WO 

*DATA 


DATA UNIO/'M 
DATA NUN/ A/ 
ENDIPREP 
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n 



0 PE 0 PU 1 .DFV 

IFNOTDEf (OUMPLM) 

1NT£ PLM(fl) 

COMrtON/PLrt/HtM 

INTEGER Pl t MPRO,PL-'lUN,PLHhAT r 
REAL «NUMUN f CAPUN'M 
E4UI VALENCE (PLM (U * PLMFPQ), 
(PLN (2) # PL M L IN) > 
(PL«C3)*»»LPhAT), 
£PLM('4),PLMTRV)» 
CPLHC5) fttNOHUN ) t 
(PLM (7) f C’ApUNHJ 

ENDJFOEK 

# 


0JACoft5 04180 JLA <<<«<* 


0 HO , po produtp cmta-;$3i) 

FNO* DA L b P. (l«<»b.p) 

#no, do material t j - a y w ) 

*TAXA DE HLJtICAO (0*100) 

# fi A S f 0 POfflNAL/UKiU) (8,-1 b p V9.) 
FCAPAC IPAOE MN'iD3/H (0**20-47*) 


PLMTRJ 
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INTROPUCAO 

. A titulo ilustrativo, uma vez que nao se incluem descM 
goes de formato ou instrugoes para util izagao, apresentam-se formularios 
Utilizados pelo sistema manual de gerenciamento do atendimento de pe 
didos, seguidos de formularies e relatorios impressos por computador no 
sistema automatizado agora implantado. 
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INTRODUCAO 

0 pseudocodigo aqui apresentado corresponde, ate certo pon 
to, ao primeiro nTvel de abstragao do projeto de cada programa. Em algu 
mas situagocs, entretanto, a descrigao da logica desce a nTveis mais pro 
ximos a codificagao, principilmente no tratamento de alguns sinal Izadores 
("flags") de importancia especial. 

Chama-se a atengao para algumas convengoes empregadas: 

- a indentagao tem significado logico; isto e, o texto que se in_[ 
cia mais a direita apos uma certa 1 inha e pertencente a estrutura 
iniciada com essa linha, e a estrutura vai ate a proxima linha de 
psudocodigo com nTvel igual ou menor de indentagao, exclusive; 

- comentarios sao apresentados entre colchetes; 

- o pseudocomando "Recebe" indica introdugao de informagao de ope 
rador, via terminal; 

- o pseudocomando "Para" corresponde a uma estrutura de repetigao 
que varre o intervalo especificado a seguir; 

- o pseudocomando "Mostra" indica colocagao de informagao em tela 
de terminal . 


- D.3 - 


PEDGAT - GERENCI AMENTO DO ATENDIMENTO 

Se (existe pedido incompleto) 

informs ponto de parada 

senao 

se (precise ’merge*) 

avisa operador 

tormina fim 

Recebe omcao de trabalho CEntrada/Consul ta/Alteracao] 

Caso (Entrad a) 

Se (pedido incompleto) 

informa ponto de parada 
senao 

recebe cabecalho e instrucoes especial* 


Repete 

recebe item 

atualiza produtos e materials afetados 
grava item 

ate' (fin dos itens) 

Infoma no* de itens presentes 
Se (terminado) ' 

sinaliza (precisa ’merge*) no cabecalho 
senao 

sinaliza (incompleto) no cabecalho 


Caso (Consulta) 

Recebe tipo [Situacao de usuar io/Situacao de F'edido/ 
Relacao de Itens] 

Caso (situacao de usuario) 

recebe no* do usuario 

mostra cabecalho dos pedidos cor respondentes 
imprime se solicitado 

Caso (situacao de pedido) 

recebe no* do pedido 

mostra cabecalho e itens do pedido 

imprime se solicitado 

Caso (relacao de itens) 

recebe no* do pedido 

imprime cabecalho e relacao de itens em 2 vias 


(continua) 




Caso (Alieracao) 

Recebe no. do pedid i 

Recebe nivel da alteracao Ccabecalho/item] 

Caso (cabecalho) 

Recebe opcao Ccancelamento/suspensao/reativacao/ 
instrucoes especiaisD 
Execute opcao selecionada 

a 

Caso (item) 

Recebe item a alterar 

Recebe opcao Ccancelamento/suspensao/reativacao/ 
substituicao] 

Execute opcao selecionada 

Fin, 


(conclusao) 


PEDMRG - ’MERGE' DOS ARQUIVOS DE PEDIDOS 

Se CMerae' Ja' feito) 

Avisa operador 

Terxina Fin 

Se (Existe pedido incoxpleto) 

Avisa operador 

Ternuna Fin 

V^rifica condicoes dos arouivos de itens 
Se (Erro) 

Avisa operador 

Terxina Fix 

Efeiua ’xerae* do arouivo adendo no arouivo de itens 
COrdex = Pedido-Paaina-LinhaD 

Recria arauivo indice tl 

COrdex = Produto-Disp-Sat-Orb-Ponto-I'ata lixite] 
Recria arouivo indice #2 

COrdex = Disp-Sat-Orb-Ponto-Pedidol 

Simliza ('Merae' Ja' efetuado) no cabecalho 

Exite Relacao de Itens do Pedidot ex 2 vias 


Fix 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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PLDGOS - LERADOR DAS ORDENS DE SERVICO 


Repete 


Delimita proxima passadem no arauivo indice 12 
CDisPositivo-Satel ite-Orbita real] 

Para (Passadem delimitada) 

Le indice seanencialmente obiendo ponteiro 
Le redistro de item apontado 
. Se (item esia' A6 OS PE) 
se (item e' CCT) 

emite linha de O.S. CCT 
senao 

sinaliza (0S1G) 

Se (item esta' AG OS PI) 
se (item e' PtB) 

sinaliza (0S2G) 
se (item e' colorido) 

sinaliza (NCOL) 

Se (0S1G) 

Para (passadem delimitada) 

Le itens via indice 
Se (item fotodrafico e 
AG OS PE ou AG PE) 

emite linha de O.S. 1GPB 

Se (0S2G) 


Para (passadem delimitada) 

Le itens via indice 
Se (item FIB e 

AG OS PE ou AG PE) 

emite linha de O.S. 2GPB 

Se (NCOL) 

Para (passadem delimitada) 

Le itens via indice 
Se (item colorido e 

AG OS PE ou AG PE) 

emite linha de O.S* NCOL 
Ate' (fim do arouivo indice) 


Fim 


D.7 


ORIGINAL PAGE IS 
OF POOR QUALITY 


PEDOSC - CONFIRMACAO DE RECEBIHENTO DE O.S.'s 
Recebe tiro dv O.S. CCCT/1GPB/2GPB/NC0L 3 
St (CCT ou 1GPB) 

Recebe passage* CDiSPtSat* Orbital 
Cato (CCT) 

Recebe item CPedido»Pagir\a» Linha] 

Lr e mostra item 

Verifica con* istencia 

Recebe novo eftado CAG PE / AG IN C03 

Atualiza item 

Caso ( 1GPB ) 

Delimita passage* no arouivo indice #2 
Para (passage* delimitada) 

Le item via indice 
Se (fotoarafico e AG OS PE) 
Hostra item 
Recebe novo estado 
Atualiza item 


Se (2GPB ou NCOL) 

Recebe ident. do original CDisp» Sat» OrbitaiRunl 

Caso (2GPB) 

Delimita passage* no arouivo indice *2 
Para (passage* delimitada) 

Le item via indice 
Se (PiP e AG OS PI e mesmo Run) 
Hostra Hem 
Recebe novo estado 
Atualiza item 

Caso (NCOL) 

Recebe no* do Ponto e Assoc* de Pandas 
Delimita o Ponto no arouivo indice #2 
Para (ponto delimitado) 

Le item via iridice 
Se (colorido e AG OS PI e 

mesmo Run e mesma assoc* bandas) 
hostra item 
Recebe novo estado 
Atualiza item 


Fim* 


ukighnal PAGE 13 

OF POOR QUALITY 
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PEDGOP - GERADOR DAS ORDERS DE PRODUCAO 

CPrimeira fast - atualizacao dot arauivos dc Recursosl 

Para (todos ot redistros de Produtos) 

Acumula rejeicoes da Jornada not total izadortt 
do aeriodc 

Zera rejeicoes da Jornada 

Acumula aroducao da Jornada no totalizador do 
aeriodo 

Zera aroducao da Jornada 

Hualiza redistro ta houve altaracao 

Para (todos os redistros de Linhas de Producao) 

Zera a Carda Prodramada aara a Jornada 
Atualiza redistro se houve alteracao 

Para (todos os redistros de Materiais) 

Acumula material dasto em aroducao no totaliza- 
dor do aeriodo 

Acumula material dasto em testes no totalizador 
do aeriodo 

Acumula material dasto em leader/trailer no to- 
talizador do aeriodo 

Zera contadores cor resaondentes da Jornada 
Atualiza redistro se houve alteracao 

CSedunda fase - Emissao das Ordens de Producao] 

Reaete 

Delimita aroximo Produto no arouivo indice #1 
Constroi matriz indice (Data limite-Paisadem-Ponto) 
Escolhe Linha de Producao a utilizer e obtem a 
carda maxima arodramavel aara a mesma 

Para (itens aaontados na matriz indice construida) 

Le item via matriz indice 
Se (item e' fotodrafico) 

Aaada sinal de 'Prodr. a/ hoJe* 

Se (item ativo e AG PF) 

Se (ha' imadens cm aroducao) 
sinaliza ’EMPROD' 

Se (ha' imadens em acabamento) 
sinaliza 'EMACAB* 

Se (EMACAB ) 

sinaliza 'Prodr. a/ hoJe* 
Se (EMPROD e carda arodr. < max) 
Sinaliza 'Prodr. a/ hoJe' 
Atualiza carda arodramada 
Emite linha de O.P. 

Atualiza item 


Ate' (fim do arouivo indice) 


(continua) 


ORIGINAL P 
OF POOR QUALITY 
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CTerceira fase - Enissao do Suoario das O.P.'sD 
Reeete 

Delioita eroxioo eroduto no arouivo indice II 
Para (eroduto delinitado) 

Le reSistro de item via indice 
Se (ProSr. e/ hoJe) 

Enite linha do Suoario de O.P.'s 

Ate' (fin do arouivo indice) 

[Quarta fase - Relacao de itens aOuardando informacao do C.Q.] 

Para (todos os redistros do arouivo indice 12) 

Le i ten. via indice 

Se (AG IN CG> eoite linha da Relacao 

Fifti 


(concl usao) 


<2 
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ORIGINAL PAGE 13 

OF POOR QUALITY 

PEDCON - CONTRULE DA PRPDUCAO 

Recebe oecao de controle [Producao Elet ronica/Produto 

Intermedia no/Produto F ina 1/ Inf ormacao do C.Q.] 

Caso (Producao Eletronica) 

Recebe sub-oecao CCCT/1GPB] 

Caso (CCT) 

Recebe item CPedido»Pasina tLinha] 

Le e mostra lie* 

Verifica ael icabi 1 idade 
Recebe codigo da producao 
Hostra sitfnificado do codigo e eede con- 
f iraacao 

. Verifica consistency de eventual cance- 
lamento 
Atualiza item 



Caso ( 1GPB) 

Recebe eassag?* CDisp» Satel ite. Orbital 
Delikita passage* no arouivo indice 12 
Recebe no. do Run 
Para (passage* delimitada) 

Le item via indice descartando 
itens nao aplicaveis 
Recebe codigos de avaliacao 
Verifica consistency 
Atualiza item 

Caso (Produto Intermediary) 

Recebe sub-opcao CNC0L/2GPB] 

Caso (NCOL ) 

Recebe item CPedidorPaSinat LinhaD 
Le e mostra item 
Verifica aplicabil idade 
Recebe codigos de avaliacao 
Hostra significado e pede confirmacao 
Verifica consistencia de eventual cance- 
lamento 
Atualiza item 

Caso (2GPB ) 

Recebe passage* CDisp» SatiOrbita] 

Delimita passage* no arouivo indice #2 

Recebe no. do Run 

Para (passage* delimitada) 

Le item via indice descartando 
itens nao aplicaveis 
Recebe codigos de avaliacao 
Verifica consistencia 
Atualiza item 

(continua) 
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Cato (Produto Final ) 

Recaba tub-orcao tParcial/Geral 3 

Cato (Parcial) 

Recebe item CPedidotPadina'Linha] 

Le a mottra item 

Verifica aelicab'ilidade 

Se (nao 'erodr. a/ hoje*> da' meritede* 

Recebe codidot da avaliacao 

Most ra tiinlficado e rede confirmacao 

Verifica contittancia 

Conttroi novo vator da attadot de iaadea 
Contabiliza rroducaot datto a rejeicoet 
Atualiza item 

Cato (Garal) 

Deliaita rroxiao rroduto no arauivo indica II 
Para (aroduto daliaitado) 

La itaa via indica desczrtando 
itant nao aalicavait 
Hottra itaa 

Recaba codidot da avaliacao 
Verified contittancia 

Conttroi novo vator da attadot de imeaem 
Coritabiliza rroducaot dasto e rajeicoat 
Atualiza item 

Cato (Informacao do C.Q.) 

Recebe item [PedidotPedinatLinhaD 
Le e nostra item 
Verified arl icabi 1 idada 

Recaba codido da avaliacao a infornacoes corralatas 
hottra tidnificado a rede confirmacao 
Verifica contittancia de eventual cancelaniento 
Atualiza item 


Fin. 


(conclusao) 
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ORIGINAL P/V - 
OF POOR QUALITY 


PEDESP - GERENCIAMENTO DO DESPACHO 
Recebe no. do Pedido 

Mostra cabeqalho e eventual* Instrueoes ElMCilil 
Avalia e nostra o no. de i tens terninados e o no. 

total de itens do eedido 
Se (no. de itens terninados > 0) 

Se (solicitado) 

Inprise Modelo de Nota de entresa 

con todos os itens terninados 
Pronove o Estado de todos os itens 
terninados a *Enviado* 
Atualiza cabecalho 


Fin. 


or:" 

of poor 


1 1 T 
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PEDGRE - r «ERENCIAMENTO DOS RECURSOS 

Repete 

Recebe arouivo a trebalhar CMater iais/Produtos/ 

Linhas de Producao/Prods x Mats x Linhas] 

Caso (Materials) 

Reeete 

Recebe codido de funcao CCriar/ 
Mostrar/Alterar] 

Caso (Criar) 

Recebe no# do Material 
Verifica se Ja ' existe 
Recebe cameos do redistro 
Grava redistro 

e 

Caso (Mostrar) 

Recebe selecao de redistros 
Mostra redistro(s) 

Ieprire se solicitado 

Caso (Altcrar) 

Recebe no. do Material 
Verifica se existe 
Mostra campos do redistro 

seouencialmente? a- 
ceitando novos va- 
lores eventualniente 
fornecidos 
Atualiza redistro 

Ate' (codido de 'fi«i* pelo operador) 

Caio (Linhas de Producao) 

CLodica eouivalente 'a de Materials] 

Caso (Produtos) 

CLodica eouivalente 'a de Materials? 
acrescentando verificacao? ouando a- 
plicavel? de existencia do redistro 
cor respondente no arouivo de Prods x 
Mats x Linhas] 

Caso (Produtos x Materials x Linhas de Producao) 
CLodica eouivalente 'a de Materials* in- 
cluindo opcao a dicional de *re«iocao* de 
redistros? e verificacao? ouando apli- 
cavel? de existencia dos redistros cor- 
respondentes nos arouivos de Materials 
e de Linhas de Producao] 

Ate' (codido de 'fim* pelo operador) 


Fim. 


ORIGINAL PAGC »S 
OF POOR QUALITY 


PEDREL - EMISSOR DE RELATORIOS 

Recebe relatorios a emitir [Itens com Problema* 
Pedidos em Atraso* Producao da Jornada* 
Filas de Producao* Filas de Servico] 

CRelatorio de Itens com Problema] 

Repete 

Le redistro de item seauenci al mente 
Apada sinal de 'problema* 

Para (imadens pedidas no item) 

Se ('cancelada' e 

nao 'cancelamento aceito') 
sinaliza ('problem?,') 


Se ('problema') 

Le cabecalho p/ obter no. do usuario 
Imprime item no relatorio 

Ate' (fim do arauivo de itens) 

CRelatorio de Pedidos em Atraso] 

Repete CListaden. ,»or Pedido] 

Le redist.'O de item seauencialmente* descar- 
tando itens terminados ou cancelados 
Se (Data de HoJe > Data limite) 

Imprime item no relatorio 
6 iarda Data Limite* Produto* Pedido* 

Padina* Linha e no. do redistro 
em matriz na memoria 
Ate' (fim do arouivo de itens) 

Ordena matriz obtendo matriz indice 

Repete CListadem por Data Limite] 


Le redistro de item via matriz indice 
Imprime item no relatorio 
Ate' (fim da matriz) 


(continua) 
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[Relatorio de Producao da Jornada] 

Repete 

Le arauivo de liens seauencialmente 
Se ('Prodramado para HoJe') 

Inprime linha indicando unidades dastast 

produzidas e reJeitadas/canceladas 
Acumula essas lnformacoes por produto 

Ate' (fin do aronivo) 

Repeie [Sunario por Produto] 

Le arauivo de Produtos seauenci almente 
Se (houve unidades dasias para este produto) 

Imprime nonie do produto e valores acu- 
mulados acima 

Imprime reJeicoes havidas para cada 
causa Clidas do arauivo 
de Produtos] 

Ate' (fin do arauivo) 

Repete [Sunario por Material] 

Le arauivo de Materials seauencialnente 
Se (ha' material dasto) 

Iffipnne auantidades dastas en producao* 
em testes e en leader/trailer 
Ate' (fin do arauivo) 

[Relatorio de Filas de Producao] 

Repete 

Delinita proximo produto no arauivo indice *1 
Le redistro cor responderite no arauivo de Produtos 
obtendo a(s) Linha(s) de Producao 
Le redistro(s) correspondente(s) no arauivo de 
Linhas de Producao 

Se (anhas as L.P. [Principal e Alternative] estao 
paradas) imprime nensaden 

Constroi natriz indice (Data 1 inite-Passaden-Ponto) 

• Repete 

Le item via natriz indice 

Se (AG PF) imprime item con os estados indi- 
viduals das imadens 
Ate' (fin da natriz indice) 

Ate' (fin do arauivo indice) 


(continua) 
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OKKiiNAL PAGi. ,1 

OF POOR QUALITY 


r 


CRelaiorio de Filas de ServicoD 
Reecte CProducac eletronica] 

Le arouivo de iten* via arouivo indie* #2 CPassaflem- 
Ponto- F'edido] 

Se (AG PE ou A6 OS PE) imerime item 
Ate' (fin do a'ouivo indice) 

Reeete , CProduto intermediar ioD 

Le arouivo de itens via arouivo indice #2 IPassaSem- 
Ponto-Pedido] 

Se (AG PI ou AG OS PI) i me rime item 
Ate' (fim do arouivo indice) 

Fim. 

r 


(conclusao) 


ORIGINAL PAC i . 
POOR QUALITY 
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PEDGAR - GARBAGE COLl ECTOR 


CProducao* 


rejeicoes e dasto 


de material do periodol 


Para (todos os redistros do arauivo de Produtos) 

Imprime lotais do periodo para producao e para 
cada uma das 16 causas de reJeicao 
Imprime auaritidade ainda a produzir 
Zera os totais acima 
Zera a auaritidade a produzir 
Atualiza redistro 
Ate' (fxii do arauivo) 

Para (tndos os redistros do arauivo de Haleriais) 

Imprime totais do penodo para dasto de material 
* em producao» testes e leader/trailer 

Imprime o comprometimerito de material 
Zera os totals acima 
Zera o comprometimerito de material 
Ate' (fim do arauivo) 


[Remocao dos 


pedidos terminados/cancel ados! 


Repete 


Le proximo cabecalho de pedido 

Delimita redistros cor respondentes no arauivo de 
itens 

Se (Terminado ou Cancelado) 

Grava redistros delimitados em arauivo 
sal vaduarda 


Ate' 


senao 

Grava cabecalho em novo arauivo de cabe- 
calhos 

Se (ha' Instrucoes Especiais) 

Copia redistro do antido arauivo 
no novo arauivo de Ins- 
trucoes Especiais 

Para (redistros delimitados) 

Calcula comprometimerito de mate- 
rial 

Acumula no arauivo de Hateriais 
Acumula auaritidade a produzir no 
arauivo de Produtos 
Grava redistro em novo arauivo 
de itens 

(fim do arauivo de cabecalhos de pedido) 


Constroi os arauivos-indice residentes para os arauivos 
recem-criados 



